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Liebe Leserinnen, 
Liebe Leser, 


Computertage, Computershows - sie häufen sich. 
Meist von computerbegeisterten Lehrern organisiert, 
sind sie für viele zum Bestandteil eines Wochenend- 
ausfluges in die Region geworden. 

Unterstützt von Computerläden und Computerclubs 
bringt man in der Regel ein interessantes, vielseitiges 
Gesamtprogramm zustande, das den (ohnehin ge- 
ringen) Eintrittspreis mehr als wett macht. 

Sorgt der Veranstalter auch noch für Getränke und 
reichhaltige Auswahl an Speisen, dann kann schon gar 
nichts mehr schiefgehen. 

So war auch für uns der Computertag in Erkelenz ein 
interessantes Erlebnis, bei dem wir Gelegenheit hatten, 
persönlichen Kontakt zu unseren Lesern zu pflegen. 
Dies möchten wir, soweit möglich, in Zukunft öfter tun; 
denn wir sind sehr an Ihrer Meinung interessiert und 
Meinungsaustausch geht eben am besten im persön- 
lichen Gespräch. 

Die Organisatoren solcher Veranstaltungen möchte ich 
deshalb bitten, rechtzeitig Kontakt mit uns aufzu- 
nehmen. 

Gerade die Bekanntmachung in Zeitschriften wie 
Homecomputer und CPU sorgt dafür, daß auch weiter 
entfernt wohnende auf Ereignisse dieser Art aufmerk- 
sam werden. 

Eine größere Besucherzahl lockt mehr Aussteller an. 
Mehr Aussteller locken weitere Besucher an. Ein Kreis- 
lauf der, wenn er erst einmal begonnen hat, kaum 
Grenzen kennt. 

Freuen wir uns auf viele weitere Computershows in 
unserem Land. 


Herzlichst 


VER LE 


Ihr Ralph Roeske 
Herausgeber und Chefredakteur 
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. Superscramble (Commodore 64) (5) Terminal 
. Der Fluch des Pharao (VC-20) (2) Wicosoft 
. The Hobbit (Spectrum) 7) _________ Melbourne House 
. Pimania (ZX 81, Spectrum, Dragon) (1), Automata 
. Scramble (VC-20) (3), Terminal 
. Arcadia (Spectrum) (11) Imagine 
. Sys 64 (Spectrum) (-) Artic Computing 
. Jumpin Jack (VC-20) (14), Livewire 
. 3D Combat Zone (Spectrum) (-) Artic Computing 
. PSSST (Spectrum) (15), Ultimate 
. Shizoids (Spectrum) (-) Imagine 
. Multisound Synthesizer (VC-20) (6), Romik 


. Monster Muncher (Spectrum) (3) ______Spectrum Games 
. Superfront Commodore 64) (16) 


English Software 








. Spectac./Dragon Doodl. (Spectr./Dragon) (8) Automata 
. Moons of Jupiter (VC-20) (9), Romik 
. MCoder (Spectrum) (-) Romik 
. Voice Chess (Spectrum) (-) Aritic Computing 
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Auf über 250 Seiten enthält dieses neue Superbuch 
eine Fülle wertvoller Programmiertips, Tricks und Anre- 
gungen, mit denen Sie mehr aus Ihrem TI-99 machen 
können. Dazu eine große Vielzahl lauffertiger Pro- 
gramme, die Sie direkt eintippen können. TI-99 TIPS & 
TRICKS, 1. Auflage 1983, ca. 250 Seiten, DM 49,-. 













Dieses Buch sollte jeder TI-99 Anwender haben. 
Sie erhalten es im Computer-Fachhandel, in den Fach- 
abteilungen der großen Kauf- und Warenhäuser, im 

Buchhandel oder direkt mit dem Bestellcoupon. In der 
Schweiz über THALI AG, in Österreich über Fachbuch- 
Center ERB und in Benelux über Computercollectief. 















IHR GROSSER PARTNER FÜR KLEINE COMPUTER 


DATA BECKER 


Merowingerstr. 30 - 4000 Düsseldorf : 0211/7310010 


BESTELL-COUPON 


Einsenden an: DATA BECKER GmbH, Merowingerstr. 30,4000 Düsseldorf 




























Bitte senden Sie mir 
zzgl. DM 3,- Versandkosten. 


Ol per Nachnahme 


Exemplare TI-99 TIPS & TRICKS je DM 49,- 















D Verrechnungsscheck liegt bei 






















Bitte Adresse deutlich.schreiben 


ANWENDERTIPS 


3-D - Neue Dimensionen 


Als vor einigen Monaten in den 3. Programmen einige von Stereofilmen faszinierte Enthusiasten des deutschen Fernsehens produzierte 
Sendungen dreidimensional über die Bildschirme der Nation flimmerten, setzte auf die zum Erreichen des gewünschten Effektes 
notwendigen Rot-Grün-Brillen ein regelrechter Boom ein. Sicher haben Sie aus dieser Zeit noch eine solche Brille in irgendeiner 
ne Holen Sie sie heraus und schauen Sie sich zur Einstimmung auf das was nun folgt, das Titelbild dieses Heftes noch einmal 
mit Brille an. 


Was mit einer Stereo-Kamera möglich 
ist, sagten sich einige englische Com- 
puterfreaks, daß muß auch auf dem 
heimischen Micro zu verwirklichen 
sein; und entwickelten kurzerhand die 
ersten echten 3-D-Spiele auf ihren 
Computern. 

Das Ganze ist schließlich eine äußerst 
einfache und unkomplizierte Sache. So 
wie unsere beiden Augen zwei Bilder, 
die vom Gehirn zu einem perspektivi- 
schen Bild verschmolzen werden, se- 
hen, bildet man zwei Ansichten eines 
Objektes auf dem Bildschirm ab. 

Da dieses nur zweidimensional ge- 
schehen kann, muß man das Gehirn 
mit einem Trick überlisten - ihm 
vorgaukeln, es sähe vom entsprechen- 
den Objekt die gewohnten zwei Abbil- 
dungen. Je nachdem in welchem 
Winkel die Augen auf das Objekt 
gerichtet sind, kann es sich die ent- 
sprechenden Entfernungen errechnen, 
was zum räumlichen Sehen führt. Die 
Rot-Blau-Brille ist nach dem heutigen 
Stand der Technik die einzige Möglich- 
keit, 3-D-Visionen hervorzurufen. Sie 
sorgt dafür, daß von zwei im bestimm- 
ten Abstand übereinandergedruckter 
Bilder jeweils eines dem entsprechen- 
den Auge zugeführt wird. 

Ein Problem, Perspektive auf dem 
Computerbildschirm zu bringen, liegt 
hauptsächlich darin, daß die meisten 
Computer Farben in verschiedenen 
Stärken darstellen. Meist erscheint Rot 
hell und Grün im Gegensatz dazu sehr 
dunkel. Zum Erreichen des 3-D-Ef- 
fektes ist es aber notwendig, daß beide 
Farben ungefähr gleich stark erschei- 
nen. Statt Blau kann man auch Grün 
verwenden, verbaut sich allerdings den 
Weg zu weiteren Experimenten bezüg- 
lich echten Farb-3-D-Grafiken. 

Eine weitere Voraussetzung für ein 
gutes Gelingen ist, daß der Computer 
möglichst hochauflösende Farbgra- 
fiken darstellen kann. 

Was muß ein Programm enthalten, das 
mit echten 3-D-Effekten abläuft? 

Aus den zahlreichen vorstellbaren 
Möglichkeiten, wollen wir einige Anre- 
gungen zum Selbstprogrammieren ge- 
ben. 

Wie bereits erwähnt, müssen 2 Bilderin 
Rot und Blau auf dem Bildschirm 
abgebildet werden, es fragt sich nur, in 
welchem Abstand voneinander. 

Als Anhaltspunkt nehmen wir die Bild- 
schirmebene. Soll das Bild direkt 
darauf abgebildet sein, müssen beide 
Augen es an der gleichen Stelle sehen - 
es wird also ein Bild über das andere ge- 
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druckt. Soll das Bild vor der Bild- 
schirm-Ebene erscheinen, dann muß 
das rote Abbild links vom blauen abge- 
druckt werden und soll es dahinter- 
liegen, dann ist es umgekehrt. Je weiter 
die beiden Abbilder auseinanderge- 
druckt werden, um so näher bzw. 
entfernter erscheint uns das Objekt. 
Dieses machen wir uns zunutze, indem 
wir uns eine Serie errechnen, die wir 
später in unserem Programm anwen- 
den. 1;2;4; 8; 16 wäre so eine Serie, aber 
die Auflösung aller Homecomputer ist 
dafür zu gering. 1; 1,25; 1,5625; 1,953125; 
2,44140625; usw. (immer mal 1.25) 
reicht für die meisten Zwecke aus und 
man kann doch schon eine große 
Anzahl Ebenen auf denen etwas 
stattfindet, simulieren. 

Damit in Basic alles schneller abläuft, 
sollten die Werte am Anfang des 
Programmes errechnet und in einem 
Array abgespeichert werden. 

B(p)=1 

FOR I=1TO 19 

B(D)=B(-I)* 125 

NEXT 

Um auch Darstellungen vor dem 
Bildschirm zu ermöglichen, muß jetzt 





noch folgende Modifikation program- 
miert werden. 

FOR I=PTO 19 

SB (I) = B(D)-B(1P) 

NEXT 

Im gleichen Faktor müssen auch die 
einzelnen Figuren erscheinen. Ein 
Raumschiff wurde nach obigem Bei- 
spiel in 20 facher Ausführung jeweils 
um 1,25 vergrößert in Sprites oder 
Shapes abgespeichert. Größe und Ab- 
stand simulieren bei Druck des Objek- 
tes in zwei Farben - wobei darauf zu 
achten ist, daß Farbüberschneidungen 
einen Purpurton ergeben müssen. 
Doch nicht immer, wenn alles mathe- 
matisch richtig ist, stellt sich ein 3-D- 
Effekt ein. Das Gehirn muß laufend die 
Möglichkeit haben zu vergleichen. Es 
ist also wichtig, laufend verschiedene 
Ebenen besetzt zu haben, besonders 
den Hintergrund - sprich die entfernte- 
ste Ebene - vor der sich die Aktionen 
abspielen. 

Im Moment arbeiten wir gerade an 
einigen echten 3-D-Programmen für 
verschiedene Rechner, die wir in fol- 
genden CPU und Homecomputer vor- 
stellen wollen. 
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Zzu-81 
VC-20 


11-99/4 
Apple Il 


Apple Vc-64 


Shurp MZ 80 Labyrinthe 


Im Gespräch 


Sie haben sich zum Kauf von CPU 
entschieden und wir hoffen, daß 
Sie mit unserer Mischung aus 
Hardware- und Software-Reviews, 
News und dem nicht geringen 
Programmteil. zufrieden sind. 


Sie möchten sich durch CPU 
künfig jeden Monat neu über 
wissenswertes auf dem Gebiet der 
Heimcomputer informieren; ohne 
Fachchinesisch, in gut verständ- 
licher Form. 


Ein Abonnement ist die einfachste 
und preiswerteste Möglichkeit zum 
Bezug von CPU. 

Ein Jahresabonnement kostet Sie 
nur 55,--DM inclusive Porto. Bei 
Zusendung im europäischen Aus- 
land beträgt der Preis für ein Jahr 
80,--DM, nach Übersee 110,--DM. 


Sie sparen eine Menge Geld 
gegenüber dem Einzelbezug. 
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Sharp MZ-80K 
VC-54 


zx-81 


Apple 1 





Abonnement 
Im Dutzend billiger 


Abo-Kombination CPU plus 
Homecomputer 


. Sicher gibt es viele Leser, die beide, 


in unserem Verlag erscheinenden 
Magazine, nämlich 
CPU und Homecomputer 

interessant finden. Da jeweils an 
jedem Monatsanfang Homecom- 
puter und in der Monatsmitte CPU 
erscheint, haben also diese Leser 
alle zwei Wochen ein neues Maga- 
zin zur Hand. 


Für diese, unsere treuesten Leser, 
haben wir eine Abo-Kombination 
zu bieten, die noch günstiger ist! 
Ein Abonnement beider Maga- 
zine für ein Jahr (insgesamt 24 
Hefte) kostet zusammen nur DM 
100.00. d. h. Sie sparen noch einmal 
DM 10.00! Wer bereits Abonnent 
von Homecomputer ist, erhält 
seine beiden Abos natürlich zum 
gleichen Kombinationspreis. 


EWR rer r 


Bitte schicken Sie die im Innenteil 
des Heftes befindliche Karte bald- 
möglichst zurück, damit wir Ihnen 
ab der nächsten Ausgabe, das oder 
die gewünschten Magazine zusen- 
den können. 
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REVIEWS 


® . 
Micros for Children 
für Spectrum 16/48K von Stell-Software 
Ein Problem für manche Heimcomputeranwender liegt darin, daß kleinere Kinder im 
Alter von 5-10 Jahren natürlich gerne das Spielzeug von den Eltern oder größeren 


Geschwistern ausprobieren möchten, um einfach damit zu spielen, zumal es ja auch 
sehr eindrucksvolle Geräusche hervorbringt. 


Die meisten der angebotenen Spiel- 
programme sind aber für diese Alters- 
klasse ungeeignet. Zum einen sind die 
Kinder auf Grund ihrer Reaktions- 
fähigkeit nicht in der Lage, mit den 
teilweise recht komplizierten Spielab- 
läufen zurechtzukommen, zum an- 
deren wünscht man sich für Kinder, 
gerade in dem Alter, pädagogisch 
angemessene Programme. 

Diesem Anspruch versucht Stell Soft- 
ware (England) Rechnung zu tragen. 
Wir waren neugierig, wie solche Kin- 
dergerechten Programme nun aus- 
sehen und haben daher die Kassette 
”Micros for children 1” für den ZX 
Spectrum, eimer eingehenden Prüfung 
unterzogen. 

Die Kassette enthält 4 Programme und 
soll laut Beschreibung für Kinder im 
Alter von 3 - 10 Jahren einsetzbar sein. 







Siell Soltwears 


tor top quality programs 


HOUSE 


JUMBLE 


PICTURE 
MAZE 


4 PROGRAMS FOR 16/48K SPECTRUM 










MICROS FOR CHILDREN — 1 
AGES 3 --10 





House: Es muß erkannt werden, wel- 
ches der dreidimensional dargestellten 
Objekte in welches Zimmer gehören. 


Jumble: Ein Wortspiel (leider in engli- 
scher Sprache, daher in Deutschland 
nur bedingt verwendbar). Welches 
Wort gehört in welchen Ballon? Wenn 
das richtige Wort erraten bzw. gefun- 
den wurde, wird der Ballon bunt ausge- 
malt. Die Möglichkeit, eigene Wörter, 
die auf einer separaten Kassette abge- 
speichert werden können, zu verwen- 
den, macht dieses lehrreiche Spiel auch 
bei uns interessant. 


Picture: Was stellt das gezeigte Bild 
dar? Nach jeder falschen Antwort wird 
das Bild etwas verändert bzw. ergänzt. 
Nach der richtigen Anwort bewegt sich 
das Bild über den Bildschirm. 


Maze: Ein Labyrinth. 3 verschiedene 


Arcadia von Imagine 
für den VC-20 ohne Erweiterung 


Schwierigkeitsstufen machen dieses 
Programm für alle Altersklassen geeig- 
net. Gesucht werden muß der Ausgang, 
wo sein Hund aufsein Herrchen wartet. 


Unser Urteil: Die Programme sind von 
der Anlage her für Kinder tatsächlich 
gut geeignet. Die vorliegende englische 
Version kann im deutschsprachigen 
Raum nur für Kinder von 10-13 Jahren 
empfohlen werden, wenn diese bereits 
Englischkenntnisse besitzen. Für diese 
Altersgruppe konnten diese Spiele 
einen unterhaltsamen Sprachtest dar- 
stellen. 

Es wäre zu wünschen, daß auf dem 
deutschen Markt bald etwas ähnliches 
auftaucht. Bei den Videospiel-Compu- 
tern gibt es solche Programme bereits 
seit längerer Zeit. 





Das erste, was nach dem Laden dieses Programmes ins Auge fällt, ist eine 
ungewöhnliche Ausnutzung des Bildschirmausschnittes. Ist man doch den länglichen 
Rahmen gewöhnt, so irritiert der hier verwendete Hoch-Bildrahmen am Anfang etwas. 
Beim Spiel selbst macht sich dies allerdings angenehm bemerkbar, da der 
Aktionsradius des Spielers erheblich größer geworden ist. 


Zum eigentlichen Spiel: Wie bereits das 
Kassettenbild anzeigt, handelt es sich 
hier um ein Raumkampf-Programm. 
Mit dem typischen Invader-Spielge- 
danken hat dieses neue Programm 
allerdings nicht mehr allzuviel gemein! 
Das Raumschiff ”Arcadia”, das der 
Spieler per Tasten oder was natürlich 
viel besser ist, per Joystick steuert, ist 
sehr wendig. Zu seiner Verteidigung 
besitzt es zwei Laserkanonen, mit 
deren Hilfe es sich gegen die sehr 


schnellen Angreifer wehren muß. 

Die erste Welle der Angreifer besteht 
aus Raketen, danach folgen kosmische 
Schmetterlinge, Totenköpfe, Vögel und 
immer neue Figuren. So wird das Spiel 
auch nach längerer Zeit nie langweilig. 
Das heißt, wenn man überhaupt 
längere Zeit überlebt! Das dies sehr 
schwierig ist, merkt auch der erfahrene 
Spieler. 

Die Grafik ist exzellent, natürlich ist 
das Programm in Maschinensprache 
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erstellt. Etwas nervtötend wirkt ledig- 
lich der Sound. Doch vielleicht ist dies 
reine Geschmacksache und andere 
Spieler werden durch den infernali- 
schen Lärm sogar angeregt, immer 
weiter zu spielen. Aber notfalls läßtsich 
der Ton ja auch abstellen. 

Alles in allem, ein weiteres gutes 
Programm für den VC-20 in der 
Grundausstattung. 
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Computertag i in Erkelenz 


Am 8. und 9. Oktober veranstaltete der 
Computerarbeitskreis - eine Untergrup- 
pe des Zentrums für Spiel- und Medien- 
pädagogik e.V. aus Gangelt-Stahe - in 
Erkelenz Computertage, an denen sich 
eine große Anzahl (auch namhafter) 
Firmen beteiligten. Clubs und Anwender, 
sowie auch verschiedene Gymnasien und 
Hauptschulen der Region, nutzten die 
Gelegenheit, ihre Werke in Verbindung 
mit den Microcomputern vorzustellen. 
Der Computerarbeitskreis war, wie vom 
Vorstand zu erfahren war, zunächst 
einmal die Idee eines Einzelnen. 


Man kaufte einen Microcomputer um 
den Mitgliedern des” Zentrums” neben 
den zahlreichen Spiel- und Freizeitan- 
geboten den Zugang zum neuen 
elektronischen Medium Computer, zu 
ermöglichen. 





Das der Computer für die Mitglieder 
des Arbeitskreises mehr als nur ein 
neues Medium ist, sie ihn vielmehr als 
Auslöser einer industriellen Revolu- 
tion betrachten, von den früher oder 
später alle betroffen sein werden, 
schaffte man in Stahe gleich zwei 
weitere Geräte an, und zwar einen ITT 
2020, einen CBM 4016 und einen Sharp 
MZ-SOK. Es bildete sich ein Team, das 
sich mit den neuen Geräten befaßte 
und die Programmiersprache Basic 
erlernte. 

Schnell weitete sich der Kreis der 
Interessenten im Computerarbeitsclub 
aus. Ein erster Computerkurs fand 
statt, ein weiterer Computer wurde 
angeschafft (Apple II +) und schließ- 
lich wollte man sein Verhältnis zum 
Computer auch den Mitbürgern der 
Umgebung mitteilen und so veranstal- 
tete man 1981 den ersten Computertag, 
damals in Geilenkirchen, der ein 
großer Erfolg für alle Beteiligten wurde. 
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Nach diesem Computertag stellten 
verschiedene Hersteller dem Zentrum 
weitere Computer zur Verfügung. 

Im nächsten Jahr veranstaltete man 
den zweiten Computertag in Ober- 
bruch, der den ersten in punkto Größe 
und Attraktivität noch bei weitem 
überragte. 

Nach diesem Computertag spendeten 
namhafte Firmen den Zentrum weitere 
Geräte, so daß man jetzt auf 15 
Computer, 2 Drucker und | Watanawe 
Plotter zurückgreifen kann. 

Natürlich hat dies, den Mitgliedern 
Möglichkeiten eröffnet, wie sie sonst 
kaum vorstellbar sind. Programme 
wurden entwickelt, die den Mitglie- 
dern, aber auch Vereinen und Veran- 
staltern eine Menge Arbeit abnehmen. 
Das Hobbie "Computerei” - besonders 
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nachdem die ersten beiden Veränstal- 
tungen beim Publikum ankamen - von 
nun an jährlich mit einer kleinen 
Computermesse für eine Verbreitung 
des Computerhobbies zu sorgen. 


Die ausstellenden Firmen, die in 
diesem Jahr vertreten waren: 

ACORN Computer, München 

Ulrike Appl Computertechnik, 
Düsseldorf 

Dietmar Böhm Elektronik, Schömberg 
Computershop Gladbach, 
Mönchengladbach 

Diestel GmbH, Aachen/Würselen 
Hagemann Lehrmittelverlag, 
Düsseldorf 

Heilig, Ing. Büro, Niederroth 

Lyne von de Berg, Geilenkirchen 
MRZ Mittelrheinisches Rechenzentrum, 
Düren 

Roeske Verlag, Eschwege 

Schmidtke, Aachen 

Schmitz Datentechnik, Geilenkirchen 
Texas Instruments, Freising 

Viehaus Buchhandlung, Erkelenz 


Interessant ist, daß auch einige Pre- 
mieren zu verzeichnen waren. Die 
Firma Böhm Elektronik aus Schön- 
berg stellte den 2600 Besuchern, die 
schließlich am Ende vom Veranstalter 
zu verzeichnen waren, ihre Eigenent- 
wicklung MAX 1, einen kompakten 
Kleincomputer (s. Bild) vor. 


8 Homecomputer 








Dieses Gerätläßt sich durch Einschub- 
module beliebig erweitern und an 
bestimmte Problemstellungen einpas- 
sen, wobei die Hardware-Erweiterun- 
gen durch Software (leicht veränder- 
bares Basic) unterstützt wird. Schon im 
Grundbefehlssatz ist die Steuerung 
digitaler Ausgabe (DOUT) oder Aus- 
gabe von Impulsfolgen (GEN) und 
viele weitere Befehle enthalten. Das 
Grundgerät zum Preis von weniger als 
1000,- DM enthält bereits 16K RAM, 
eine Centronics-Schnittstelle, ein Cas- 





setteninterface, eine Echtzeituhr mit 
Wecker. Als Einschubmodule sind 
erhältlich digitale Ein/Ausgabe, analo- 
ge Ein/Ausgabe, Eprom mit 16K Spei- 
cherkapazität, sowie Leereinschubmo- 
dule zum individuellen Selbstbestük- 
ken. Weitere Einschubmodule sind 
nach Angaben des Herstellers in 
Vorbereitung. Homecomputer wird in 
späteren Ausgaben auch Software zum 
MAX 1 veröffentlichen. 

Ein interessantes Gespräch führten wir 
mit dem Marketingleiter vom MRZ 
(Mittelrheinisches Rechenzentrum Dü- 
ren) bei dem besonders das Interesse 
der Firma zum Ausdruck kam, dem 
kleineren Handwerksbetrieb, den Weg 
zum Computer zu erleichtern. In eigens 
dafür entwickelten Basic-Kursen ver- 
liert der noch skeptische Newcomer, 
den wohlmöglich Freunde von der 
Notwendigkeit eines Computers im 
Betrieb überzeugten, schnell die Angst 
vor dem unheimlichen Wesen Heim- 
computer und lernt fast spielend solch 
ein Gerät für seine Zwecke im Betrieb 
zu nutzen. 

Auch für uns war die Veranstaltung ein 
voller Erfolg, hatten wir doch Gelegen- 
heit zahlreichen Lesern und solchen 
die unsere Zeitschrift bisher noch nicht 
kannten, etwas über unsere Ziele und 
auch Problemchen zu vermitteln. 
Besonders gefragt waren die älteren 
Ausgaben von Homecomputer, von 





denen wir leider (wer konnte dies auch 
ahnen) viel zu wenig mitgebracht 
hatten. 

Fazit: Am Ende hatten 700 Besucher 
mehr als im Vorjahr den Computertag 
des Zentrums besucht, wovon interes- 
santerweise diesesmal ca 60% der 
Besucher der älteren Altersgruppe 
zuzuordnen war. 

Die einzelnen Aussteller stellten fest, 
daß die Interessenten im Vergleich zum 
Vorjahr äusserst fachkundig gewesen 
sind - das Allgemeinwissen über 
Computer hat enorm zugenommen. 
Freuen wir uns auf die Veranstaltung 
im nächsten Jahr. 
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Poker 


für den TI-99/4A 


Das Programm "”Poker” hat nichts mit dem eigentlichen Kartenspiel Poker 
gemeinsam. Es wurde vielmehr einem Geldspielautomaten aus Las Vegas 
nachempfunden. Es ist für diejenigen, die versuchen ihr Geld zu vermehren, bzw. zu 
verlieren. Man beginnt mit einem Startkapital von 1 000 000 DM oder Dollar. Aufdem 
Bildschirm erscheinen dementsprechend Fragen oder Anweisungen, welche kurz 


erklärt werden: 


Einsatz: Es kann ein Betrag zwischen | 
und 10000 gesetzt werden. Es dürfen 
aber nur positive Beträge eingesetzt 
werden. 

Start: Es kann jede Taste gedrückt 
werden. 

Wieviel Karten halten?: Es können bis 
zu fünf Karten gehalten werden; 


eine muß jedoch mindestens aufge- 
nommen werden. 

Welche Karten?: Es muß darauf geach- 
tet werden, daß zuerst die niedrigste 
Karte gehalten wird, z.B. die Karte "2" 
und ”5” sollen gehalten werden. In 
diesem Fall muß zuerst eine 2 und 
dann die 5 gedrückt werden. 


BLACKJACK 


für TI 99/4A 


Neues Spiel: Hierfür kann jede Taste 
betätigt werden. 

Um zum Ausgangsbild zurückzukeh- 
ren muß man (FCTN=) drücken. Um 
zum Anfang des Spieles zu kommen, 
muß man (FCTN9) drücken. 

Noch eines: Gewinnen kann man erst 
ab 2 Paaren. 


Das Ziel dieses Kartenspieles ist es, mit höchstens 5 Karten möglichst nah an 21 Augen 
zu kommen. Hierbei tritt der Spieler gegen die Bank (Computer) an. 


Spielbeschreibung: 

Nachdem die Eingangsmelodie ver- 
klungen ist, beginnt der Computer die 
Graphik zu erstellen. 

Wie man in der oberen linken Ecke des 
Bildschirmes ablesen kann, besitzt 
jeder Spieler ein Anfangskapital von 
1000 Dollar. Der blinkende Cursor 
fordert den Wetteinsatz (nach der 
Eingabe ”enter” drücken). Nachdem 
eine beliebige Summe eingegeben ist, 
deckt der Computer die ersten Karten 
auf. Hierbei erhält die Bank eine Karte 
verdeckt. Die Aufgabe des Spielers ist 
es nun, möglichst nah an 21 Punkte zu 
kommen. Zu diesem Zweck ist es 
möglich weitere Karten zu verlangen 


(W-Taste). Kommt er hierbei über 21 
verliert er seinen Einsatz sofort. 
Werden keine Karten mehr verlangt 
(K-Taste), deckt die Bank ihre zweite 
Spielkarte auf, und gibt sich gegeben- 
enfalls weitere Karten. Dies tut sie 
solange, bis ihre Gesamtsumme "16" 
überschreitet. Auch bei einer "weichen 
17” (unter den Karten befindet sich ein 
Ass, das Il Punkte zählt) nimmt sie 
sich noch eine weitere Karte. Zuletzt 
ermittelt der Computer den Spieler, der 
der 21 am nächsten gekommen ist. 
Noch eine weitere Besonderheit muß 
erwähnt werden: Gelingt es einem 
Spieler mit zwei Karten 21 Augen zu 
erhalten (z.B. Ass und 10), besitzt er 





einen "BLACKJACK”, d.h. er erhält 
den 1,5 fachen Wetteinsatz. Ist ein 
Spieler so vom Pech verfolgt, daß er 
sein gesamtes Geld verspielt, erhält er 
wiederum ein Startkapital von 1000 
Dollar. 


Die Bewertung der Karten: 

Die Karten von 1-9 zählen den aufge- 
druckten Wert. 

Bildkarten und 10 zählen 10 Augen. 
Sonderstellung des Asses: Ass zählt 1 
oder 11 Punkte. Kommt ein Spieler 
über 21 Augen und erbesitztein Ass, so 
zählt diese Karte nicht 11 sondern nur 1 
Punkt. 
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Superhirn 
für den ZX Spectrum 


Unter dem Namen Mastermind (Titel einer bekannten und beliebten englischen 
Quizserie) gelangte dieses Spiel vor ca. 8 Jahren auf den Markt. Die Beziehung ist 


klar: Es geht um abstraktes Denken und finden einer Lösung. 


Unser Superhirn simuliert das Spiel 
Mastermind auf dem ZX Spectrum. 
Obwohl die Spielregeln den meisten 
Lesern bekannt sein werden, wollen wir 
sie für diejenigen, denen das Spiel noch 
nicht in die Hände fiel, noch einmal 
abdrucken. 


suPperh 


I 


Ein vierstelliger Code, der vom Com- 
puter per Zufallsgenerator ermittelt 
wurde, muß vom Spieler systematisch 
erraten oder besser kombinatorisch er- 
mittelt werden. Der Rechner leistet 
dazu Hilfestellung, indem ereinen vom 
Spieler vorgegebenen Textcode mit 


seinem versteckten Geheimcode ver- 
gleicht und aussagt, wieviele Überein- 
stimmungen von Farben (Zahlen) und 
Plätzen es gibt. Alles weitere geht aus 
der Spielanleitung im Programm her- 
VOT. 


DO reacnen 
\penoseen 
TRaDaucn 
PRH 
NAUNPON- 


Pi 
x 


aste druecken 


E23 


tie: 


2 


f 

! 

l 

ı 

! 

ı 

1 
8ı 
18 1 
21 
2 | 
31 
ı 

ı 

! 

l 
E| 
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REM #+4# Superhirn 
REM Rß 1983: Christian Boehm 
REM 
Go SUB SOSB: WER 1 
FRINT AT 2,5; 
cıM 
DIM 
bIM 
FOR 
LET a£f?=INT CRHDKEI+L 
LET itacfddeiclacfdyrl 
NEXT f 
LET 9=8: LET w=8 
DIM ut6> 
INPUT ‚LINE b&$: 
FOR f=1 TO 4 
LET b£ f>=VAL bECE#) i 
189 PRINT PAPER b£f) INK FC FXASbLEI" "; 
119 IF a@Cf>=b£f) THEN LET 9=4+1 
115 LET ucbifd’=euCbifdy+l 
128 NEXT f 
138 FOR f=1 TOD 5 x 
148 LET wew+l ABS Ci Fd-ucf)>) 
159 NEXT f 
168 LET wed-(ur2) 
178 LET weu-q 
175 FRINT , 
188 PRINT “CHR& 159+" 
159+" "+CHR$ 1594" "+CHRE 1594" 
240 IF 9<>4 THEN GO TO 69 
258 FOR f=1 TO 19: BEEP „95,20: : 
spielen ?CJ/n?"ı LINE a$: IF ag="j" 
255 STOP 
268 RESTORE 278: FOR f=ß TO 15: READ a: POKE f+USR "p",a: NEXT f: RUM 
278 DATA 255,129,129,129,129,129,255,.0,255,255, 255, 255,255, 255,255,0 
988 DYER @: INK 6: PAPER 1: BORDER 1: RESTORE 3@11: CLS 
2501 FOR f=7? TOD 14 


IF LEN b$&<>4 THEN BEEP „5,15: BEEF „25,16: GO TO 7% 


"+CHRS 1694" "+CHRS 1694" "+CHRS 1604" "TO 2#9 + CHRE 
"+CHRS 159+" "3X TO 2Xu); TAB 51 

f 
PAUSE 5: NEXT f: INPUT "Wollen Sie noch eirmal 
THEN RUN 












3982 PRINT AT f,155CHR$ 143; CHR# 143 
3393 HEXT f 

»6094 FOR f=105 TOD 56 STEP -1 

>885 READ a 

3886 FLOT a,f: DRAU 112-3-64*3a<5).9: PLOT 255-2,f: DRAU -C 112-3-64%(24579.0 
5587 HE#T f . 

3388 PRINT AT 29,4: BRIGHT 15"Software fuer ZX Spectrum"; BRIGHT 8 

Sana FRIHT AT 29,4; ERIGHT 15"Software fuer ZX Spectrum"; ERIGHT 8 

3212 BEEP 2,8: BEEP 2,7: BEEEP 1.75.12: BEEP „25.16: BEEF 2,15 

3811 DATA SZ2,44,38, 33:29: 26,24,21,19.17,15,13,12,19.9,8,7.7,6,9,59,4,4.4,4,4,4,4, 
4.5,59,6,7,7,8,9,19,12,13,15.17,19,21.24,26,29,33.38,44,52 




















sa12 FRAUSE 1A: PAPER 8: BORDER B: CLS 

3928: PRINT AT Sn '5 FR hi a "ans"Bei 

diesem 5Piel muessen Sie___-einen vierstelligen Code erra-_-ten. Hach Jedem Vers 
uch saat___ Ihnen der Computer, wie viele_-_von den eingegebenen Zahlen in--dem 


Code enthalten sind ©";CHR® 159; ") und " 


>239 PRIHT "wie wiele an der richtisen Stel-le stehen C"SCHR#& 162:"). Wiel Veran 
wesen |",,"Bitte Taste druecken !":AT 21,85"® 1983 : Christian Boehm" 

3948 PFIISE 68899: CLS 

9288 PRINT- "Hr I. Ihr Tip : I Ergebnisi... me m Nr F 
OR f=1 TO 28:- PRINT " "C TO FAiBdf3" di 1": NEXT f 


5218 RETURN 


Haushaltsrechnung 
für den ZX Spectrum 


Wer kennt nicht das Dilemma am Monatsende; die Haushaltskasse ist wieder einmal 
leer. Auch der mehrmalige Versuch, die Führung des Haushaltsbuches diesesmal 
besonders ernst zu nehmen und mit aller Disziplin und Sorgfalt vom ersten bis zum 
letzten Tag des Monats durchzuführen, scheitert in den meisten Fällen kläglich. 





























Mit dem Programm "”Haushaltsrech- 
nung” möchten wir Ihnen unsere Hilfe 
anbieten, um dieses Problem so gut wie 
möglich in den Griff zu bekommen. 
Gerade Sie, die einen Computer be- 
sitzen, sollten diese Gelegenheit war- 
nehmen und so Ordnung in Ihren 
Finanzetat bringen. 

Die Haushaltsrechnung wird in diesem 
Programm in Einnahme- und Ausga- 
bekonten unterteilt. Durch die Mög- 
lichkeit die Anzahl und die Namen der 
Konten frei zu wählen, kann jeder 
Benutzer das Programm für den 
eigenen Bedarf maßgerecht schnei- 
dern. Bei der Dateneingabe wird zuerst 
das Datum eingegeben, damit eine 
Kontrolle der letzten Buchung möglich 
ist. Dann werden die Einzelkonten der 
Reihe nach durch einen Pfeil angezeigt 


Bilanzen 
Statistik 
Speichern 


uae0o0m 





Druecke 


Konten. eroef/men 
Daten eingeben 


eine Taste 


und abgefragt. Die Daten werden 
monatlich aufaddiert und gespeichert. 
Desweiteren beinhaltet das Programm 
die Erstellung von Bilanzen. Monats- 
und Gesamtbilanzen werden mit Ge- 
winn und Verlust angezeigt. Mit Hilfe 
des Statistikteiles können Struktur und 
Entwicklung der Einnahmen- und 
Ausgabenkonten angezeigt werden. 
Die farbige Kreisstatistik zeigt die pro- 
zentualen Anteile der Einzelkonten an 
den Gesamtausgaben oder -einnah- 
men. Das dreidimensionale Säulendia- 
gramm ermöglicht die Darstellung der 
monatlichen Entwicklung jedes Ein- 
zelkontos. Bei der Anzeige der Bilan- 
zen und Statistiken wird jeweils der 
gewünschte Monat oder das gewählte 
Konto angezeigt. 

Zur Speicherung können einmal Pro- 


Drucke eine Taste 


gramm und Daten oder nur die Daten 
genommen werden. Farbe und Ton 
sind bewußt zur Vereinfachung und Er- 
kennung eingesetzt worden. 

Nach Laden des Programms wird das 
Hauptmenue angezeigt. Es sollten 
zuerst die Funktionen Bilanzen und 
Statistik benutzt werden. Mit der 
Funktion ”Dateneingabe” wird nach 
neuen Daten gefragt. Die Funktion 
”Konten eröffnen” löscht alle bis- 
herigen Daten und Kontennamen und 
fragt dann die gewünschte Kontenan- 
zahl pro Kontenart und die Konten- 
namen äb. Wird das Programm vom 
Listing übernommen, kann es entwe- 
der mit ”Run” oder mit ”Go to 3000” 
gestartet werden. 








INK 7: C 
LS_: T ie das heutig 
e Datum ein.Tag at und Jahr 
sind inner ei tig einzugeb 
en. i : ®"2Q21.21.83 


& INPUT "Heutiges Datum";agti 
x Januar ",“ Februar " 


er pri F 
Jun ET ury ... 
“ "Septeaber“," Oktober 
AL "November", ""Dezenber"," Gesa 


13 PRINT ee 
EHEFFERERERE",) '; WERSE 1; "Sie 
koennen die Ahzänı und die Name 
n der Einnahme- und Aussabe-kont 
en frei waehlen. Pro Konten-art 
duerfen es maximal 14 Kont 

; INVERSE 2.2 
;“wieviele A 
usgabeko 
2 IF 

24 INPUT INVERSE 
innahmekonten?"; INUVERSE 9; ,a2 

26 IF a2>14 THEN 85 To 24 

27 PRINT "FErEFEHErErHEEREEEer 
ZrssrEEEErErN, "Die Namen der K 
Onten werden i Programm gespei 

Deshalb muss, nach Eing 
Nanen, das ganz 
speichert werd 

Ba,BiRF: PRUSE 


ı38 
34 LET Fi LET g=ail+1: LET z#$ 
"Ausgäbskonien" 
Go_TO 393 


ann 


J LE 9=f+a2: LET 
zg2"Einnahnekonten" 
ET 


z= 
FOR 3=f 70 9 
GE 
3 IF f=al+2 Auch” $erra2 THeNn P 
AT z+4,2," 


PRINT RT z+6,2;T 
eramteinnahmen : LET, ErIR 

e“ teinahmen": 
Ne,gäsamtein "AND j=a141 THEN PRIN 


FRINT AT z#+6, 2; TAB 
7; TGesamtausgaben“: LET x$(3)="G 
esantauspaben.;.C Ber) 
47 PRINT AT z+4, 2; 3; TAB Fix) 


° Dee IF f=3 THENGOT 


Gg9_TO 2209 

©: FOR_n=1 
NEXT n: in IndeRs 
;"Haushaltsrechnung. pi 
;AT_2,13; VERSE 1;4$ 

SE 0: GO 15 158 n 

INVERSE i;AT 8,10; "Ha 
7, 1; “Be inn: 
n ANDERS 


INVERsE ı 
ERSE ® 3 


sE_ı 
NyeAsE" o; + 
INU 
@: INPUT "Batun 


"2 
‚5 
ri THEN GO TO 205 
17 


;a$ (3) 
#13) (4 To 5) 
#(2)=2& (3) 
PRINT INUERSE 1;AT 4,1;" 


T m Kon 
sans 12; "Kontonanme ‚TAB 2 


8;"B 


[) 
218 FOR )=f TO 9: LET z=z+1 
217 IF f=al+2, » 
RINT Ar zea,a, “AND Jef+az2 THEN P 


—_—_— ___ _":PRINT_AT Z+8,2;T7 
AB 7; "Gessnteinnahnen": cd T6 22 


218 IF f=1 AND j=al+1 THEN PRIN 
TAT z+4,2;,". 
RE I PRINT AT _z+6,2; TAB 
7; "GBesamtausgaben": GO_TO 228 
ws PRINT AT z+4, 2; 33TAB 7;x$1(J 











NEXT j 
RAN 7 
IF Kii- 3150” THEN co TO 3208 


THEN 20 TO 378 


Ver BI=B$+". oo“ 
IF n=1\-2 THEN 6D_TO 38 
IF n=1L-1 THEN LET BeiBg4ıron 
LET 1=5-LEN es 
IF jsal+a2+2 THEN GO T0_3857 
IF j=a1+1 THEN G0 TO 387 
85 PRINT AT 4+t{j+1) -f},24+1;B 
$: GO_TO 398 
387 PRINT AT E+rttj+1)3-f) ,24+1;B 


$ 
598 RETURN 


-ı 
422 PRant EAUHErSETEPLIEN 1, 

AT Artigeaı SI) RSSEE 
428 INPUT "Bit Betrag eingebe 
Ben gen ärlecken) DM: n$ 
T . Int Ar tt 


‚425 
Mtäs; 


438 LET n=UAL n$ 
435 LET a=n 
437 PRINT RAT IF SI PL Fa 
AT LISTET 26 
44 336 
Fer nV akti,ji+a 


LET_a=V 
GO SUB 338 
POKE_ 23609,® 


n 
FOR j=f TO 9-1 
LET_n=n+k (1,3) 


j=n 
09 


;» 
GO suB 336” 
Kr 


FOR Br To 
Ktia, 2220 


er To 
FOR i=1_ TO 12 
LET BLID TR LADE 


PAUSE ®8 
LET i=®8: BORDER 1: PAPER 6: 
IN ®@: CLS : PRINT INVERSE 1; 
.,8;"8 IL AN Z 8 N;AT 2,185" 
Menue“; INVERSE 8; °’* 
18 PRINT TAB 6; "1 Monatsbilan 
sEo, PRINT TRB 6;"2 Jahresbilan 


> 
ss PRINT TAB 8:29 ame» 
938 PRINT AT 21 Fe Neäuse 
S40_IF key geni® HEN INPüT” Pr 
PER 8; INK 7, "Welcher Monat 7? 
"S4S IF INKEY$="@2" THEN GO TO 19 
IF INKEY$="3" THEN 66 TO 38 
LET f=1, 
Börner 3 EN „PAPER 2: INK 7: C 


60_SUB 288 
58 PRINT AT 21,5;9$: PRUSE ®: 


58 LET f=1: LET g=al+l: 
50 _SUB_682 
19655 EEIS f=sa1+2: LET 9=f+a2+1: G 
ss 60 
LET fe1l 
LET 9=a1 
cLS : GO *Zus 1890: GO SUB 21 


GO SUB 598 
PRINT AT 21,5;9%: PAUSE ®: 


INK 8: € 


e2,, S;g%$: PRUSE ®: 
P8 No 4200 





LET f=al+2 
=f+a2 
60 SUB 1858: GO SUB 21 
G0O_ SUB 5988 
ai 5;9%$: PRUSE ®: 


SE_ 1; AT 
en ERSE 2;TRAB 55 
us 33 ben: 


STNPR PRR 
BUS MON 
zns 88 U88 


BORD PRORHeRRE 
OH: 


DRAU 9, 


s2 

298285 PLOT 67,119: DRAW 59,-52: P 
LOT 187,119: DRAU -59,-52 

3910 PRINT AT 15,12;K (i ,alra2+2) 
z„kti,ail+1); DM" 

2928’IF ki ee 
THEN PRINT AT 17,12; “"Gesinn“: 

oO TO 2958 

208358 PRINT INK 2;AT 17,12;"Veriu 
st" 


2858 PRINT AT 21,5;9$: PAUSE ®: 
So To 98 ge 


“haushalt DATR Ss0 
a ” a 
9399 LET HF? BORDE eine Tilo 
3888 BRIGHT 1: BORDER 1: PAPER 7 
INK ©; : PRINT INUERSE 1;R 
Auantshn lang ehndn? ar 2,1 
TAB 65" 1°" Konten eroe 


TAB 6;“2 Daten einge 
TAB 6;"3 Bilanzen"; * 
TAB 6;"4 Statistik"; 
TAB 6;"5 Speichern"; 


BRINT AT 21,5 „PRUSE 
TNKEYg="4r TIE 0°%ı 
INKEYES"3= THEN 60 io 


INKEY$="3" THEN GO 
INKEY$="4" TBEN 
INKEY$="5" THEN 


BORDER 6: PRPER 1: 
PRINT INVERSE 1;AT 
Shaltsrechnung” Ar 2; 13; "Menue"; 


INUV 
88 PRINT TRB 6;“a Einnahmen“; 
PRINT TAB 6;"b Ausgaben“; 


PRINT TAB _ 6;“"c Ende” 
PRINT AT 21,5;9$: PAUSE o 
IF INKEY$="a" THEN GO TO ı1 


IF INKEY$="b" THEN GO TO 18 
IF INKEY$="c“ THEN GO TO 39 


PRINT AT 15,9; INVUERSE 1;"P 
rograns + Da juli, BB 7 on 3 16,9; "Dat 


PRUSE 8 
IF INKEY$="P“ THEN GO TO 43 


IF INKEY$="D" THEN 60 TO 598 


SAVE "haushalt" LINE 2599 

SAUE "haushalt" DATA kt) 

SAVE_"haushalt"“ DATA a: 

PRINT AT 21,5;9$: PAUSE ®: 
TO _ 3998 


18 STOP 
5258 BORDER 2: PAPER 5: INK 8: © 
L5 PRINT INVERSE 1;" 5 
;AT 3,13; "MENU 


; D 
5485 DEF_FN_m{x)=1ix1#PI/188): DE 
FFN_n(wj={C05 wi) #sc: DEF FN hie 
Is1{i5IN wi)rrc 

5418 PRINT TAB 6;"1 Kreisstatist 
ik-Ausgaben"; ’*" 

5415 PRINT TAB 6;"2 Kreisstatist 
ik-Einnahnen“"; 

5425 PRINT TAB 6;"5 Saeulendiagr 
amm";’’” 

5427 PRINT TRB 6;“4 En RE 
5438 PRINT ;AT 21,8; INbehse 1;$ 


INPUT PA 
q gi 


GG 
5468 IF INKEY$="2" THEN INPUT PR 
PER 2; INK a Monat 
fuer Gesamt; B 
5458 IF InKEv+ THEN INPUT PR 
PER 1; INK 7; "Welches Konto ?7 "; 
J: GO TO 7508 








IF INKEY$>="4" THEN 60 TO 5 


STOP 
LET f=1: LET 9=21: 60 TO 55 


LET f=ai+2: LET 9=f+a2-1: G 
5980 


EEE z=® 
LS 


69819 IF f=al+2 THEN PRINT TRB_4; 
ZNVERBE ı1;"Einnahmen:“: INVERSE 


Bess IF f=1 THEN PRINT TAB 4; IN 
VERSE 1; "Ausgab N INVERSE 


: PRINT _AT 
INVERSE 1; aslir; INUERSE & 
CIRCLE 09: 87, 

LET e=9 

LET e=k (i,9+2) 

FOR j=f TO 9 

IF kti,,j)=® THEN GO TO 606e 

LET yisyirk di, 

LET usu+1 

60 SUB 7808 

LET X re 

PRINT"AT 21,5;9%: PAUSE @: 


14 tk1i1,3)3)21007e) 
x1=p1+3697198 
w2=(x1#PI17360) +(x=PI,18 


xi1=x1+x 

x2=x1 

c2={1C05 w2}3=6 
d2=1S5IN w2jr6 


782 di 

2838 BLör c<2+78, a8+853: DRAW INK 
as 

7835 LET xi=x1-1. 

7948 IF 2123312 HEN 66 TO 798598 
7845 GO_TO_7® 

7858 LET Zasasıı 

7852 LET a=a+i 

7853 IF u=6 ar LET u=8 
7855_INK u: INT AT 2a5-3,15;x$t{ 
JI;TAB 285; INDERSE 1;p1;"X": INU 
ERSE @ 


RETURN 
BORDER 8: FRPER 8: INK 7: C 


=8:_ LET u=® 
FOR = To ı2 
IF kti,3)>p THEN LET p=kli, 


EXT i 
IF P>352988 THEN LET 1=50: GO 
TO 8968 
BES ıE P>16980 THEN LET 1L=48: GO 
ae P>688 THEN LET 1=28: GO 
3935 IF p>488 THEN LET i1=18: GO 


TO 8068 
re ar P>288 THEN LET 1=5: GG T 


=2,5 
AT 8, INVERSE 1;"5Sa 

eulendiagramm“; IhLERSE oO 
89878 ERıNT ar 2; INVERSE 1;"Ko 
2,°3> 15; INU 


ER 
DRAW 229,8 
FOR {33 To ı2 
LET +1 
Zr sY7. THEN LET s=5 
t+2: LET ur 5= 


ET 
ti1,3)7=® HEN 28 TO 6250 
s,t; INK W;INT Ki 


FOR_n=5 
n+ 


35 
er a DRAU 
»4) 71) 


19: DRAW 


1 B u 
PLOT SB+rtli-i)’Er 
DRAY INK 

Lot, serie 


IN ‚4 
836 BLör S535+11i-13 #16) ,19+INT 
RAR LS ALTE DRAW INK v;65,0 

278 PLOT S5@+11i-1}7 #16) ,15+INT 
Kiez DRAW INK 455,0 
8280 NEXT_ i 
83588 PRINT AT 21,5;9%: PAUSE ®: 
GO TO 5499 








SINCLAIR X-81 


3D-Highway-Race 


für den ZX-81 


Autorennen gehörten schon von jeher zu den beliebtesten Computerspielen. Dieses 
Spiel ist aber zweifellos eines der besten, für den ZX 81! Durch den bekannten 3D- 
Effekt bekommen Sie den Eindruck, in den Bildschirm hineinzufahren. 


Dabei müssen Sie aufpassen, daß Sie 
nicht von der kurvenreichen Fahrbahn 
abkommen, daß Sie rechtzeitig den 
entgegenkommenden Autos auswei- 
chen und sich auf die ständig steigende 
Geschwindigkeit einstellen. 

Zum Üben kann man am Anfang des 
Spieles den Schwierigkeitsgrad und 
damit die Breite des Wagens, der mit 
den Cursor-Tasten ”5” und ”8” gelenkt 
werden kann, selbst bestimmen. 
Nach jeder Strecke, die Sie mit Ihrem 
Auto zurücklegen, wird Ihre Punktzahl 
um 1 erhöht und am Ende des Spieles 
angezeigt. Versuchen Sie nicht wäh- 


rend der Fahrt das Programm mit der 
"BREAK”-TASTE zu unterbrechen, 
denn Sie befinden sich in einer 
Maschinenspracheschleife, die sich 
nicht unterbrechen läßt. Man kann die 
am Anfang wahrscheinlich viel zu 
hohe Geschwindigkeit mit POKE 
17147,N verändern. 

N ist dabei eine Zahl zwischen | (sehr 
schnell) und 255 (sehr langsam). 

Das Spiel ist sofort zu Ende, wenn Sie 
entweder die Fahrbahn mitIhrem Auto 
verlassen haben, oder wenn Sie mit 
einem entgegenkommenden Auto zu- 
sammengestossen sind. 


Beim Eingeben des Spieles tippen Sie 
zuerst das normale, in BASIC geschrie- 
bene Programm ein. Dann geben Sie 
GOTO 9000 und daraufhin alle Befehle 
(Zahlen) des Maschinensprache-Li- 
stings ein. 

Speichern Sie danach wie angegeben 
das Programm auf Cassette ab. Beach- 
ten Sie, daß die mindestens 775 Zeichen 
umfassende REM-Zeile 10, sowie die 
mindestens 15 Zeichen umfassende 
REM-Zeile 11, daß Maschinenpro- 
gramm enthalten und das diese daher 
sehr seltsam aussehen! 





3DP— HIGHUR“Y—-FRRCE 


12 REM « 773mal Space > 


11 REM 


15mal Space > 


12 REM SBD—-HI GHWUAT— RACE 


13 REM VERSION I 


14 REM VON THOMAS A. 
HEUER WEG 25 a 
6259 LIMBURG/L. 7 


15 REM 
16 REM 
17 REM 


RLNKLER 


19 REM ALLE ZEICHEN IN "{3"-KLAMMERN IM Graphics-Mode EINGEBEN 


19 REM 


29 FOR N=17288 TO 1E38 
3@ IF PEEK N“>118 THEN NEXT N 


31 DIM Al14> 

32 LET AC19=295 
33 LET AC23=219 
34 LET Ak3)=66 
35 LET Af4)=129 
36 LET AC59=254 
37 LET AX69e255 
sa LET At 7)=32 
39 LET Al89=248 
48 LET AC93=121 
41 LET AK 19)=234 
42 LET AC119=255 
42 LET Af12)=32 
44 LET At 13)7=243 


18 Homecomputer 


November 1983 


45 LET Al 14 )=221 

sa FOR M=N+5 TO N+19 

62 POKE M.ACM-N-5> 

78 NEXT M 

88 LET K=hN+6 

198 PRINT "SCHWIERIGKEITSGRADE :","1 “uun. SEHR EINFACH" "2 ..... MITTELSCHWER" 
»"3 unnn. NUR FUER PROFIS" 

181 LET A®=INKEY& 

192 IF CODE A8<29 OR CODE As>31 THEN GOTO 191 

193 LET A=VAL A+4 

194 POKE 17135: 16-A 

195 POKE 16196, 28-R 

196 POKE 17237, 

197 POKE 17245,32-A 

198 POKE 17259, A+2 

199 CLS 

ze&8 PRINT AT 209.0, 

281 POKE 17269,PEEK 16398 

2082 POKE 17266, PEEK 16399 

203 POKE 17264, 15-R/2 

284 PRINT AT 19,9;"{ 32mal Space }":AT 8,85 

205 POKE 17113.255 

206 POKE 17114,255 

207 POKE 16514,5 

218 LET Y=USR 17115 

211 PRINT AT 8,2: "{ACHTUNG „..:" 

212 FOR N=1 TO 580 

213 NEXT N 

214 PRINT "(FERTIG „..}" 

215 FOR N=1 T0 58 

216 NEXT N 

217 PRINT "LOS.";AT 9,8; 

229 RAND USR x 

225 RAND ® 

239 LET A=4+A 

249 LET B=PEEK 17264 

245 PRINT AT 29,B3"{2mal Space,shft G,shft H.=shft G.Zmal Space,Zmal shft F,3mal 
Space}"C TO AY:TAB B;"(shft G.5mal shft H,=shft F,ehft G,SPpace.0,SPace}"(C TO A) 
258 PRINT AT 28,.E; "(#,chft 5,chft S,shft G.ahft 4,-.Space,"",1,T,ehft FH" TOA 
TAB Bi "(Space,shft R,shft Y,ehft T,2mal Space.+,5Pace,shft D, >> >"C TO A> 

268 PRINT AT 20,E14"(S5Ppace,shft H,SPace.shft W.SPpace}""{ahft 6,-,2Zmal Space,shft 
WE"C TO ADITAB BI "t?,V,ehft Y,Space,shft Wehft = {"",8,8}"C TO AD 

279 PRINT AT 20,B;"(shft Q."",3mal Space,.,..echft 6,+,5Pace.""}"C TO RD:ITAB Bi" 
{shft G,Space,K.3mal Space,0,Space,shft RYO"i TO A» 

zeag PRINT AT 29,B1"{shft F,Zmal Space,..‚Zmal Space,-.3mal Space,shft Y}"C TO AI 
TAB Bi "(Space,shft E,Zmal SPpace,=,2mal Space,shft G,Space,"",D}"“ TO A» 

298 PRINT AT 29,B1"1-,Space,chft E:Zmal Space. ).5mal Space}"l TO AS:TAB Bı"td,$S 
pPace,shft G.SPace.>."",Space,$,5Pace.A.KX}"< TO A> 

392 PRINT AT 29,8;"(11mal Space}"t TO A>d:TAB Bi"tshft E.Space,shft G.SPace,%,$p 
ace,-,5Pace,%,Space,""}"< TO A» 

318 PRINT AT 8,0; "(=zhft E.3@mal shft 7,shft R,shft 5% YOUR SCORE 

{shft 97" 

320 PRINT AT 2.8: "(shft 5} {shft E3":AT 2.16:65536 
-FPEEK 17113-PEEK 17114%256: TAB 8, "(shft 1U,30mal shft G.shft Or" 

330 POKE 16419:8 

349 PRINT AT 22,2: "{shft S>KAUFEN SIE SICH EIN NEUES AUTO{shft 8,32mal Space}" 


358 PRINT AT 9,0; 

362 RAND LISR 17267 

372 FOR Hei TO 28 

375 IF INKEY&<>"" THEN GOTD 429 

382 NEXT MH 

398 GOTO 2369 

400 CLS 

412 RUH 

1998 CLS 

ia1a PRINT "STARTEN SIE DAS BAND MIT" 
1815 PRINT 

198208 PRINT "REC. UND PLAY ..." 

1925 FRINT 

1832 PRINT "UND DRUECKEN SIE DANN" 
19833 PRINT 

1848 PRINT """NEWLINE""..." 

10859 IF INKEYSC>CHR® 118 THEN GOTO 1959 
1260 CLS 

1272 PRINT " 

1B89 PRIHT " 

1992 FRINT 

118@ PRINT "YOH THOMAS A. RUNKLER 1983" 











1118 
1129 
1138 
1149 
1158 
1168 
1179 
92099 
9018 
9928 


PRINT 

PRINT "EYTES: ";PEEK 16396+PEEK 16397%256-16599 

SAYE "3D-HIGHWAY-RACE" 

FOR N=1 TO 398 

NEXT N 

CLS 

RUN 

REM 

REM 1. >Basic-Prosramm eingeben 

REM 2. nach GOTO 9998 die Zahlen des Maschinensprachelistinss und danach ST 


OP eingeben 


32939 
9949 
sten 
92359 
SLOM 
2968 
92793 
92989 
9939 
s109 
9112 
9128 
9138 
9148 
9159 
F1629 
9178 
9298 
9218 
9229 
9239 


REM 3. Band mit REC.+PLAY starten und NEULINE druscken 
REM 4. ?Das Pro@ramm ist nun auf der Cassette Sespeichert und startet den er 
Probelauf 

REM 5. >Im Falle eines Fehlers Prosramm mit FAST und RAND USR 836 laden, in 
umschalten und mit dem Listin® aus dem Heft versleichen 
REM 

SCROLL 

PRINT "ADRESSE", "CODE" 

SCROLL 

SCROLL 

FOR N=16514 TD 1E38 

INPUT As 

SCROLL 

IF At=" STOP " THEN GOTO 9298 

POKE N, VAL At 

PRINT N,VAL At 

NEXT N 

FAST 

CLS 

SLOW 

GOTO 1299 


9D-—-HIGHWAY-—RRACE 


MASCHINENSPRACHE-LISTING 


(nach GOTD 90888 Zahlen nacheinander eingeben |) 


#16514 283 0804 805 BO6 B05 005 BB6 287 


„16527 B42 Bi4 BE4 817 0353 008 BE2 Bil 


#16549 237 082 237 982 Bi4 832 


416553 814 832 054 128 035 813 


#16566 817 129 864 123 136 895 


416573 862 Bil 152 895 237 882 


416532 194 143 0864 281 903 9883 


#16605 203 0983 003 283 B82 BB2 


#16618 eeı BB1ı BBı B8ı 281 moi 


#16631 se2 Bm2 BBZ BBZ 202 BB2 


#16644 ed 201 Bi GB1 Bi @Bı 


#16657 2083 0983 803 203 B9Z BB2 


#16670 Bei Geı B@Bı GBI Bei Bi 


#16683 223 Be2 Bez 202 282 


H16696 2083 883 023 203 09983 


416783 282 81 Bei Bez mai 


#16722 881 082 e082 203 883 


#16735 9083 983 Bes 903 983 


#16748 gez 8891 bez Bei Bw 


H1676E1 Bei ui sei 881 Bez 


H1E774 Bi 802 223 883 803 














#16787 883 293 
“16800 2881 081 
#16813 882 822 
“16826 881 ei 
#16839 083 883 
#16852 881 139 
#16865 248 852 
416878 958 864 


#16891 812 886 
#16904 ei 148 





#16917 058 865 
#169308 254 832 
#16943 0813 058 
#16956 Bi4 258 
#16969 813 217 
416982 082 943 
#16995 981 883 
*17a08 054 zei 





“17021 281 224 
#17034 248 8 895 
“17047 004 848 
#17068 054 835 
“17073 035 232 





“17086 169 004 
4170899 054 8 835 
“17112 242 255 





“17125 154 858 
#17138 248 217 
“17151 037 248 
417164 817 208 
417177 0508 867 
“17198 858 112 867 
#172083 0985 032 250 
“17216 867 922 ea 
417223 084 oB1ı 255 
#17242 032 238 038 
#17255 832 258 835 
#17268 812 0864 286 
#iırz8i 281 198 128 119 


Eingabe mit STOP beenden 





Bitte seben Sie auch die Zahlen der Adressen 16597 
biz 16852 ein. Es handelt sich hier um Datenspeicher |! 














Chikago 


für den ZX 81 


Das vorliegende Programm simuliert das Würfelspiel ”Chikago” auf dem ZX 81, 
wobei der Computer auf Wunsch auch selbstmitspielen kann. Ziel des Spieles, das mit 
6 Würfeln gespielt wird, ist es, eine vorher gewählte Zahl von Augen zu erreichen. 
(Meistens 10000). Es wird nach folgenden Regeln gespielt: 


Eine 5 zählt 50 Punkte, eine 1 zählt 100 
Punkte, 3 gleiche Würfel zählen 100 
mal die angezeigten Augen. (3 *3 z.B. 
300 Punkte 3 * 5 500 Punkte usw.). Die 
Ausnahme bilden hier drei Einsen, 
welche 1000 Punkte zählen. Der höch- 
ste Wurf ist die Straße, also 1,2,3,4, 5,6, 
die allerdings nur auf einmal gewürfelt 
werden kann und 2000 Punkte zählt. 
Die Straße und alle Würfe bei denen 
kein Würfel übrigbleibt, müssen bestä- 
tigt werden. Das heißt es muß bzw. darf 
wieder mit allen sechs Würfeln weiter- 
gewürfelt werden. 

Enthält ein Wurf nur zwei Fünfen, so 
kann eine Fünf in eine Eins, also 100 
Punkte, umgewandelt und die zweite 
Fünf wieder mit ins Spiel genommen 
werden. Würfelt ein Spieler einen Null- 
Wurf (d.h. keine 1, keine 5 und keine 3 
Gleichen) dann ist sofort der nächste 
Spieler an der Reihe und sein Punkte- 
konto wird erhöht. 

Aufgeschrieben werden, können nur 
Augenzahlen größer oder gleich 350. 
Wird diese Zahl mit dem ersten Wurf 
nicht erreicht, so darf weitergewürfelt 
werden, wobei die gewürfelten len, Sen 
und/oder 3 gleiche Würfel, die als 
Punkte behalten werden sollen, aus 
dem Spiel genommen werden müssen. 
Mitdem verbleibenden Rest der Würfel 
darf weitergespielt werden. Der Spieler 
kann selbstentscheiden, welche Würfel 
er als Punkte aus dem Spiel nehmen 
will. Es muß aber mindestens 1 Würfel 
weggelegt werden. Hat der Spieler eine 
Augenzahl von 350 oder mehr erreicht, 
kann er sich diese Zahl zu seiner 
bisherigen Punktezahl hinzuaddieren 


und der nächste Spieler ist an der 
Reihe. Er kann aber auch das Risiko 
aufsich nehmen, weiter zumachen, um 
seine Augenzahl zu erhöhen, oder 
einen Null-Wurf zu werfen, wodurch 
auch die bisher erreichte Punktezahl 
verfällt. 


Zum Spielvorgang 


Der durch den Computer aufgeforderte 
Spieler betätigt die Taste ”"W” und löst 
dadurch den Würfelvorgang aus. Auf 
dem Bildschirm erscheinen 6 Würfel 
und die Auswertung des Wurfes. Ist 
eine Änderung des Wurfes möglich, so 
fragt der Computer "Wurf ok? (J/N)”. 
Will man etwas ändern, so drückt man 
”N”. Nun erscheint ein schwarzes 
Viereck unter dem ersten Würfel, 
welches sich mit den Tasten 8 und 5 
(Cursor rechts/links) von Würfel zu 
Würfel bewegen läßt. Dieses Viereck 
bringt man nun durch Drücken der 
entsprechenden Taste unter den bzw. 
die Würfel, dieman wieder mit ins Spiel 
nehmen möchte und drückt "NEW 
LINE”. Will man drei gleiche Würfel 
wieder zurücknehmen (z.B. drei Zwei- 
en), so bringt man das Viereck nur 
unter den ersten der drei Würfel und 
drückt "NEW LINE”. Die Beendigung 
des Rücknahme-Vorganges erfolgt 

durch Drücken der Taste ”W”, oder 
automatisch wenn der sechste Würfel 
mit "NEW LINE” zurückgenommen 
wurde. Dadurch nimmt der Computer 
die gewählten Würfel wieder ins Spiel 
und korrigiert die Augenzahl. Das 
Ergebnis dieses Vorganges ist aller 


dings erst beim nächsten Wurf zu 
erkennen, ebenso wie die Umwandlung 
von zwei Fünfen in eine Eins, die der 
Computer automatisch und ohne Hin- 
weis durchführt. War der Wurf in 
Ordnung (angezeigt durch die Betäti- 
gung der Taste ”J”) und ist die bisher 
gewürfelte Augenzahl kleiner als 350, 
so wird automatisch weitergewürfelt. 
Ist die erreichte Punktzahl größer oder 
gleich 350, so fragt der Computer 
"WEITER ? (J/N)”. Will man jetzt mit 
den restlichen Würfeln noch einmal 
würfeln, so drückt man ”J”, ansonsten 
”N” und die erzielte Punktzahl wird 
dem Punktekonto gutgeschrieben und 
der nächste Spieler wird vom Compu- 
ter aufgefordert zu würfeln. Das Ende 
des Spieles ist erreicht, wenn einer der 
Spieler die anfangs maximale Punkt- 
zahl überschreitet und der letzte 
Spieler in der Runde gewürfelt hat. Der 
Computer zeigt dann den Namen und 
die Punktzahl des Gewinners an und 
fragt, ob ein neues Spiel gestartet 
werden soll. 


Das Spiel "Chikago” erklärt sich selbst 
und belegt einen Speicherplatz von 
knapp 9K Byte. Es sei noch auf die 
Möglichkeit hingewiesen, daß der ZX 
81 auch gegen sich selbst spielen kann. 
Um dieses zu verwirklichen, gibt man 
auf die Frage "WIEVIELE SPIELER 
(MAX. 5)” eine zwei und auf die Frage 
nach dem Namen jedesmal ZX 81 ein. 


Viel Spaß beim Würfeln! 


a 
“ 


m = 


De 





140 
145 
147 
160 
180 
200 
230 
240 
245 
250 
255 
260 
270 
275 
280 
300 
320 
330 
340 
360 
365 
370 
380 
400 
420 
430 
440 
442 
445 
450 
455 
460 


WUERFELN=1600 
1300 


”351 SFACES’ 


GOSUB FRINT 
CLS 

PRINT "WIEVIELE SPIELER (MAX. 
INPUT N 

IF N=0 OR N>S THEN GOTO 180 
PRINT AT 3,0;"WENN ICH MITSPIELEN SOLL," 
FRINT "ANSTELLE DES NAMENS" 

PRINT "ZX81 EINGEBEN. " 

DIM PN) 

DIM N$ (N, 10) 
PRINT AT 8,0; 
FOR I=1 TO N 
PRINT "NAME DES 
INPUT N$(1) 

IF N$(I,1 TO A)="ZX81" 
PRINT N$(ID) 

NEXT I 

PRINT AT 15,0;"WIE HOCH SOLL GESPIELT WERDEN?" 
INPUT MAX 

GOSUR TABELLE 

LET N=0 

LET SP=1 

LET SUMI=O 

LET ANZ=& 

FRINT AT 1,68 (SP-1) +4; "0" 

IF N$(SP,1 TO 4)<>"ZX81" THEN GOTO 460 

PRINT AT 10,05 "ICH WUERFELE. " 
GOTO 4810 

PRINT AT 10,0;N$(SP,1 TO 55" 


ER 


"13". SPIELERS: 


THEN LET CS=I" 





WUERFELT (TASTE 


nn 


480 
500 
510 
520 
540 
550 
560 
570 
ICH 
580 


LET I$=INKEY$ 

IF Is<>"W" THEN GOTO 480 
GOSURB CLEAR 

GOSUB WUERFELN 

GOSUR CHECK 

LET SUM1=SUM1+SUM 

IF ST=0 THEN GOTO 630 

IF N$(SFP,1 TO 4)="7X81" 
HABE"; 

IF N$(SP,1 TO A4)<>"ZX81" 


THEN PRINT AT 20,0; "SPITZE 


THEN PRINT AT 


20,03 "GRATULIERE" 


585 
S90 
00 
610 
630 


FRINT "EINE STRASSE." 
FOR I=1 TO 100 

NEXT I 

PRINT AT 20,0;L$ 
FRINT AT 20,05 "WURF: 


";SUM:" GESAMT: 


"3 SUM1% (SUM< 30) 


632 
634 
635 
636 
638 
6397 
640 
641 
642 


IF SUM<>O THEN GOTO 640 
FRINT AT 21,03 "SCHADE, 
FOR I=1 TO 100 

NEXT I 

GOSUB CLEAR 

GOTO 720 

IF ANZ=Ö0 THEN GOTO 440 
IF N$(SP,1 TO 4)="7X81" 
IF FSTO1=1 OR SUM=SO OR 


NIX IST." 


THEN GOTO 4500 


(SUM=100 AND S(5)=0) THEN 


G0T0O 646 


643 


6441IF Is="W" 


646 
648 
650 
660 
670 
680 
700 
710 
720 
740 
780 
780 
800 
820 


GOSUB WURFOK 
THEN GUTO 510 
IF SUM1<350 THEN GOTO 460 
IF INKEY$="J" THEN GOTO 648 
FRINT AT 21,0; "WEITER ? (J/N) 

INKEY$ 

THEN GOTD 860 

"J" THEN GOTO 460 
GOSUB CLEAR 
GOSUR EINTRAG 
FRINT AT 1,6% (SP-1)+4;" " 
LET SP=SP+1 
IF SF<=N THEN GOTO 430 
IF NOT END THEN GOTO 420 
GOSUR CLEAR 
FOR I=1 TON 


830 
840 
850 
860 
870 
3830 
8970 
9700 
10 
920 
930 
940 
GEWO! 
950 
960 
970 
980 
9970 
1000 
1010 
1015 


FOR J=1 TO I 
IF PD >PiI) 
LET H=P(D 
LET F{D=P(J) 
LET F(J)=H 
LET H$=N#(TI) 
LET N$(II=N$(J) 
LET N$(J)=H$ 
NEXT J 
NEXT I 
PRINT AT 13,83" #x%% 
FRINT AT 15,05 
INNEN." 
FRINT AT 20,05 "NOCH EIN SPIEL ? 

NKEY$ 

THEN GOTO 960 

THEN RUN 


THEN GOTO 910 


"ENSIGN" KRKK" 
HAT MIT "z;P(1);" PUNKTEN 


(J/m" 


REM CLEAR 

FRINT AT 10,0;5$ 
PRINT AT 19,0;L$ 
PRINT AT 20,0;L$ 
FRINT AT 21,03L$ 
LET FSTO1=0 
RETURN 

REM FRINT 

FRINT AT 8,6; 
FOR I=1 TO 21 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FOR I 
PRINT 
NEXF I 
PRINT AT 20,0: "DRUECKE EINE TASTE" 
NKEY$ ä 
THEN GOTO 1260 


EIN SPIEL MIT 


& WUERFELN 


REM TABELLE 

CLS 

FOR I=1 TO N-1 
PRINT AT 2,6%1+1; "1 
NEXT I 

FÜR I=1 TO &4N 
PRINT AT 3,13 "8" 
MEXT I 

PRINT AT 3,1; 

FOR I=0 TO N-1 
FRINT AT 4,6%1+1 
PRINT AT 5,6%1+1; 
FRINT AT 6,6%1+1; 
LET P(I+1)=0 
NEXT I 

FOR I=1 TO 64N 
PRINT AT 7,1: "“" 
NEXT I 

PRINT AT 7,13CHR$(1) 
RETURN 

REM WUERFELN 

FOR I=1 TO & 

LET S(I)=0 

NEXT I 

FOR I=1 TO ANZ 
LET W{I)=INT (6&XRND) +1 
LET S(W£IDDI=S(WEND)+1 
LET X=5%(I-1)+2 
GÜSUR 100XW (I) +2000 
NEXT I 

RETURN 

REM "1" 

PRINT AT 15,%3" 
RETURN 

REM "2" 

PRINT AT 13,X-1 
PRINT AT 17,%+1 
RETURN 

REM "3" 

GOSUR 2100 

GOSUR 2200 

RETURN 

REM "4" 

GOSUR 2200 

FRINT AT 13,X+13" 
PRINT AT 17,%-1: 


":N$(I+1,1 TO D;" 





2440 RETURN 4050 GOTO ACCEPT 
2500 REM "5" 4500 LET DIFF=MAX 

2520 GOSUB 2400 4505 LET MAXI=0 

2530 GOSUB 2100 4510 FOR I=1 TON 

2540 RETURN 4515 IF P{D)>MAXI THEN LET MAXI=P(TDD 
2600 REM "&" 4520 IF I=CS THEN GOTO 4550 

2610 GOSUR 2400 4530 LET D=MAX-F(T) 

2620 PRINT AT 15,%-1 4540 IF D<DIFF THEN LET DIFF=D 

2630 PRINT AT 15,X+15 "8 4550 NEXT I 

2640 RETURN 4560 IF SUM1>=350 THEN GOTO 4570 

3000 REM CHECK 4570 GOSUB 4900 

3002 LET ST=0 4580 GOTO 4800 

3010 LET SUM=O 4590 IF NOT END THEN GOTO 4620 

S110 IF ANZ<6 THEN GOTO 3260 4600 IF P(SP)+SUM1>MAXI THE GOTO 700 
3120 FOR I=1 TO & 4610 GOTO 4570 

3130 IF S(I)<>1 THEN GOTO F190 4620 IF P(SP)+SUM1>=MAXI THEN GOTO 700 
3140 NEXT I 4640 IF SUM1>=1000 THEN GOTO 700 

3150 LET ST=1 4650 IF DIFF<MAX-350 THEN GOTO 700 

3160 LET SUM=2000 4660 IF SUM1>=500 AND ANZ>=3 AND RND>.S THEN GOTO 700 
3170 LET ANZ=O 46709 GOSUR 4900 

3180 RETURN 4800 PRINT AT 10,03 "ICH WUERFLE NOCHMAL" 
3190 LET FULL=O . 4810 FOR I=1 TO 30 

3192 IF S(1)=& THEN GOTO 3160 4820 NEXT I 

3200 FOR I=2 TO 6 4830 GOTO S10 

3210 IF S(I)=& THEN LET FULL=I 4900 IF S(5)=Q AND S(2)<Z THEN RETURN 
3220 NEXT I 4910 IF S(S5)>=3 THEN LET S(S)=S(9)-3 
3230 IF NOT FULL THEN GOTO 3260 4920 IF S(ZI<S OR SUM=200 THEN GOTO 4970 
3240 LET SUM=200#FULL 4930 PRINT AT 21,05"DIE 3 ZWEIEN NEHME ICH REIN." 
3250 60T0 3170 4940 LET ANZ=ANZ+Z 

3260 IF S(1)<T THEN GOTO 3300 4950 LET SUMI=SUMI-200 

3270 000+100% (S(1)-3)+50%5 (5) 4960 RETURN 

3280 NZ-S(1)-5(5) 4970 IF SUMI<100 OR S(5)=0 THEN RETURN 
3285 IF S(1)=3 AND S(5)=0 THEN LET FSTO1=1 4975 PRINT AT 21,05 "DIE "52$(S(5));5" NEHME ICH REIN." 
3290 RETURN 4980 LET ANZ=ANZ+S (5) 

3300 IF ANZ<S THEN GOTO 3360 4990 LET SUM1=SUM1-SOXS (5) 

3310 FOR I=1 TO 6 5000 RETURN 

3320 IF S(I)<S THEN GOTO 3350 

SIIO LET SUM=SUM+100XI 


3340 LET ANZ=ANZ-3 BEDEUTUNG DER VARIABLEN: 
3345 IF I=1 OR I=S THEN LET S{D=S(D-3 256 LEERZEICHEN ZUM LUÜESCHEN DES WUERFELFELDES. 


3350 NEXT I 51 LEERZEICHEN ZUM LOESCHEN EINER ZEILE. 
3360 IF ANZ=O0 THEN RETURN AUGENZAHL DER WUERFEL. 


3370 IF S(S)<>2 OR S(1)<>0 OR SUM<>O OR ANZ=2 THEN ANZAHL DER 1EN, 2EN USW. 


SOTO 3380 26(2,12): ENTHAELT TEXT. 
3372 LET SUM=169 N ANZAHL. DER SPIELER. 
3374 LET ANZ=ANZ-1 PN): PUNKTZAHL DER SPIELER. 
3375 LET FSTOi=i N$(N): NAMEN DER SPIELER. 
3376 cs POSITION DES ZX81 IN DER SPIELRUNDE. 
SE30. UM+LOORSCLI+SORSIH) I: LAUFVARIABLE IN FOR-NEXT-SCHLEIFEN. 
a NZ=BILI-BIG) MAX : AUGENZAHL BIS ZU DER GESPIELT WIRD. 
3400 IF S(1)=0 AND S(S)=0 AND SUM<>O THEN LET FSTO1=1 | END ; FLAG, ZEIGT AN, DASS EINER DER SPIELER ’MAX* 
3450 RETURN UEBERSCHRITTEN HAT. 
en re ueen ir SF : NR. DES GERADE WUERFELNDEN SPIELERS. 
3520 PRINT Ar BIER IEE- A IS-TBISEISSTT HIER ERMAT SUMME DER! BICHERTBEN WUERFE: 

= ‚ S ’ ANZ : ZAHL DER NOCH IM SPIEL BEFINDLICHEN WUERFEL. 
3530 IF P(SP)>MAX THEN LET END=1 1% s EINGABE BTRING- 
5549 BETURN SUM : AUGENZAHL EINES WURFES. 
3600 REM ACGEPT ST : FLAG, 1 WENN EINE STRASSE GEWUERFELT WURDE, 
suis der m Euer 5} ' 

= ; 2 

3217 PRINT Ar 38; 0,18 FSTOl: FLAG, ZEIGT AN, DASS 2 FUENFEN IN EINE 1 
3620 PRINT AT 19,X3 "1" 
3630 LET I$=INKEY$ UMGEWANDELT WERDEN KOENNEN. 
3640 IF I$="" THEN GOTO 3630 LAUFVARIABLE IN DER SORTIERROUTINE. 
3642 IF I$<>"S5" THEN G0TO 3650 HILFSSPEICHER NUMERISCH. 
3643 IF X-3<2 THEN GOTO 3630 HILFSSPEICHER ALFHANUM. 
3644 PRINT AT 19,X:" " DRUCKPOSITION DES JEWEILIGEN WUERFELS. 
3645 - FLAG, ZEIGT AN, DASS ALLE WUERFEL EINES WURFES 
3646 LET I=l-ı ZAEHLEN UND SOMIT WEITERGEWUERFELT WERDEN DARF. 
3648 GOTO 3620 DIFF: DIFFERENZ DER HOECHSTEN FUNKTZAHL ZU "MAX. 
3650 " THEN G0TO 3700 MAXI: PUNKTZAHL DES BISHER BESTEN SPIELERS. 
3655 "W" THEN RETURN 
3660 IF CODE 1$<>118 THEN GOTO 3630 
3680 IF W(T)=5 OR W(I)=1 THEN GOTO 3690 BEDEUTUNG DER UNTERFROGRAMME: 
3681 IF S(W(I))<Z THEN GOTO 3630 ACCEFT + (3600) RUECKNAHME DER UNERWUENSCHTEN ABER 
3682 LET SUM1=SUM1-1008W(I) GUELTIGEN WUERFEL. 
3684 LET ANZ=ANZ+3 EINTRAG : (3500) TRAEGT DIE ENDGUELTIGE AUGENZAHL 
3688 GOTO 3700 EINES WURFES (>= 350) RICHTIG IN DIE TABELLE EIN. 
3690 LET SUMI=SUMI-5OK(WLDI=SI-1008(WEN)=1) CLEAR : (1000) LOESCHT DIE WUERFEL UND KOMMENTARE 
3695 LET ANZ=ANZ+1 AUF DEM SCHIRM. 
3700 PRINT AT 19,X5" " CHECK : (3000) PRUEFT DEN WURF UND BERECHNET DIE 
5705 LET I=I+1 AUGENZAHL. 
3710 =X+5 WUERFELN: (1600) BESTIMMT MITTELS RND DIE AUGENZAHL 
3720 IF X«Z1 THEN G0T0 3620 DER WUERFEL UND STELLT SIE ALS WUERFELSYMROL AUF DEM 
3730 LET Is="w" SCHIRM DAR. 
3740 RETURN TABELLE : (1300) ZEICHNET DIE TABELLE MIT DEN AUF DREI 
4000 REM WURFOK BUCHSTABEN GEKUERZTEN SPIELERNAMEN AUF DEN SCHIRM. 
4010 PRINT AT 21,05"WURF OK 7 tayN)" WURFOK : (4000) FRAGT OB DER WURF OK IST UND 
4020 LET I$=INKEY$& VERZWEIGT, FALLS NICHT ZU ACCEPT, 
4030 3" AND I$<>"N" THEN GOTO 4020 PRINT :(1110) GIBT DEN VORSPANN AUF DEN SCHIRM UND 
4040 "3" THEN RETURN : WARTET AUF EINEN TASTENDRUCK. 





Pyramid Builder 


für den Apple II 


Pyramid Builder ist ein Programm für alle, die an einem längeren Match auf ihrem 
Apple II interessiert sind. 


Im alten Ägypten gibt der allmächtig 
herrschende Pharao seinen Unterta- 
nen den Auftrag, eine Pyramide: zu 
EITSE 

Ihre Aufgabe ist es mittels des Compu- 
ters, die zu verrichtenden Arbeiten der 
Untertanen auszuführen. Der Bau der 
Pyramide muß innerhalb von 13 


Jahren vollbracht sein, bevor den 


Pharao das Zeitliche segnet. Bis man 
dies jedoch geschafft hat, muß man 
viele Hindernisse bewältigen. Das 
Leben des Spielers und der Bau der 
Pyramide ist mehr als einmal gefähr- 
det; wenn die Arbeiter meutern, ein 
Bürgerkrieg ausbricht, Attentate aus- 
geübt werden, Kreuzrittereinmarschie- 
ren und so weiter. 


Wie Sie an Hand dieser kurzen 
Beschreibung gemerkt haben werden, 
verspricht dieses Spiel viel Spannung 
und Abwechslung. 


Also dann, viel Erfolg beim Pyrami- 
denbau. 





APPLE II 








10 REM RBB PROVINZ AL-FARASCHA UM" 
20 REM * TUT-EN AMUN * 3510 PRINT : PRINT "DIR ARBEITER 
30 REM * FYRAMID * ZU BESORGEN. " 
40 REM * BUILDER * 320 FRINT : FRINT "WILLST DU DIE 
50 REM BB SE AUFGABE ANNEHMEN ?"3: GET 
60 REM * COPYRIGHT #* YN& 
70 REM * >1985 BY * 330 IF YN$ < > "N" THEN GOTO 3 
80 REM * CARSTEN * 70 
90 REM * FREY * 340 PRINT : PRINT : FRINT "DER F 
100 REM HERR RR HARAO GIBT NUN DEINE HINRICH 
110 TEXT : HOME : INVERSE : VTAB TUNG" 
12: HTAB 12: FRINT "PYRAMID 350 PRINT : PRINT "BEKANNT.DU EN 
BUILDER": NORMAL TKOMMST IHM NICHT... ......" 
120 VTAB 20: HTAB 4: FRINT "Cory ' 360 PRINT : END 
RIGHT >1983< BY CARSTEN FREY 370 P = 100000:6 = 200:FPG = Or:JA = 
"3 VTAB 22: HTAB 9: FRINT "6 1 
940 WEINHEIM-SULZBACH" 380 F = 1500: AB = V: TE = © 
130 GOSUR 250 390 HOME = VTAB 1: FRINT "FROVIN 
140 REM #%*%* Musik **%* Z = "3: INVERSE : FRINT "AL- 
150  GOTO 180 PARASCHA";: NORMAL : HTAB 30 
160 FOKE 0,255 - FI: FOKE 1,LE ‚= PRINT "JAHR = "3: INVERSE 
170 CALL 771: RETURN = FRINT JA: NORMAL 
180 REM *%* Begrüßung #** 400 PRINT 
190 FORI=1T7T2 410 FRINT "EINWOHNER : ";F 
200 FI = 111:LE = 80: GOSUB 160:FP 420 PFRINT "SFEICHER : ":6 
I = 127: GOSUB 1680:PI = 141: 430 PRINT "FELDER al: 
GOSUB 160:FI = 111: GOSUB i 440 PRINT : FRINT "WIEVIEL EINWO 
&0:FPI = 141: GOSUB 160:FI = HNER SOLLEN ZUM FRONDIENST" 
127: GOSUB 160:FI = 43: GOSUB 450 PRINT : INPUT "HERANGEZOGEN 
160:PI = 111: GOSUB 160:FPI = WERDEN ?";AB: IF AB< O0 OR A 
ill: GOSUB 160:PI = 127: GOSUB E > F THEN GOTO 860 
160:FI = 141: GOSUB 160 460 F=F- AB: FRINT : FRINT "WI 
210 FI = 111:LE = 160: GOSUB 160: EVIEL SFEICHER VOLL KÜRN BEK 
PI = 103:LE = 80: GOSUB 160: OMMEN DIE": FRINT : PRINT AB 
FI = 63: GOSUB 160: PI = 111: 5" ARBEITER ZUGETEILT "z: INPUT 
GOSUB 160: GOSUB 160: FI = 1 Ak: IF AK & OÖ OR AK > G THEN 
27: GOSUB 160:PI = 141: GOSUB GOTO 840 
160:PI = 147: GOSUB 160: FI = 470906 =6 - AK: IF AK < (AB / 100 
141: GOSUB 160 0) THEN TA = 1:AL = INT (AK 
220 PI = 127: GOSUB 160:PI = 111: * 1000):AL = AB - AL:AB = A 
GOSUB 16&0:PI = 103: GOSUB i B - AL:IS = IS + AL 
60:FI = 63: GOSUB 160:PI = 8 480 FRINT : FRINT "WIEVIEL SPEIC 
4: GOSUB 160:FI = 103: GOSUB HER BEKOMMEN DIE ";F: PRINT 
160:FI = 111:LE = 160: GOSUB : INPUT "ANDEREN EINWOHNER Z 
160:LE = 80: GOSUB 160 UGETEILT ?"zEkK: IF EK < OÖ OR 
230 NEXT I ’ EEK > 6 THEN GOTO 840 
240 GOTO 260 4906=6- EKk: IF EK < (F 7 1000 
250 FOKE 771,173: FOKE 772,48: FOKE ) THEN ET = 1:EL = INT (EK * 
773,192: POKE 774,136: POKE 1000) :EL = F- EL:iF=P - EL 
775,208: FOKE 776,4: FOKE 77 :IS = IS + EL 
7,198: FOKE 778,1: POKE 779, 500 FRINT : FRINT "WIEVIEL FELDE 
240: POKE 780,8: FOKE 781,20- R SOLLEN BEWIRTSCHAFTET": PRINT 
2: FOKE 782,208: POKE 783,24 : INFUT "WERDEN ?";FB: IF FB 
6: FOKE 784,166: POKE 785,0: X 0 OR FB > F THEN G60T0 86 
FOKE 786,76: FOKE 787,3: FOKE © 
788,3: FOKE 789,96: RETURN 510 IF FB > (6 # 25) THEN FB = INT 
260 REM *%**%* ANFANG ##*%** (6 * 25): PRINT : FRINT "DU 
270 HOME : FRINT "DER FHARAO TUT KANNST NUR ";3FBs" FELDER": FRINT 
-ENCH AMUN GIBT DIR DIE" : FRINT "BEWIRTSCHAFTEN.": GOTO 
280 PRINT : PRINT "EHRENVOLLE AU 500 
FGABE,DER ERBAUER SEINER" 520 IF ( INT (FB * 5) > P) THEN 
290 PRINT : FRINT "FYRAMIDE ZU S FE= INT (F / 5: FRINT : PRINT 
EIN.ER GIBT DIR 13 JAHRE" "DU HAST ZUWENIG BAUERN.DU K 
300 PRINT : FRINT "ZEIT UND DIE ANNST NUR": PRINT = FRINT FB 





26 Homecomputer November 1983 


ı" FELDER BEWIRTSCHAFTEN.": GOTO 
500 
53506=6- INT (FB / 25) 
540 P6 = INT (50 * RND (1)):PG = 
FG / 100 
550 HOME : FRINT "DIE ERNTE IN D 
IESEM JAHR BETRUG ";FG ; 
560 FRINT : FRINT "SPEICHER KORN 
PRO FELD.":G = 6 + (PG * FB 
= 
570 IF ET=1 THENET = OÖ: PRINT 
:.FRINT "DIE EINWOHNER REBEL 
LIERTEN WEGEN": FRINT z PRINT 
"NAHRUNGSMANGEL. ";P5" EINWOH 
NER": FRINT : FRINT "(OHNE A 
RBEITER) LEBEN NOCH." 
580 IF TA = 1 THEN TA = Ö: PRINT 
: FRINT "DIE ARBEITER REBELL 
IERTEN WEGEN": FRINT =: PRINT 
"NAHRUNGSMANGEL. ";AB;" ARBEI 
TER ": PRINT : FRINT "LEBEN 
NOCH. " 
590 W= INT (10 * RND (1)) + 1: 
G = INT (6 
600 FRINT : FRINT "DU HAST NUN " 
65" SPEICHER VOLL VON ": PRINT 
= FRINT "KORNe nn..." 
610  GOSUB 1330 
620 ON W GOSUB 880,920,960,1000, 
1040,1080,1130,1180,1230,128 
{9} 
630 GOSUB 1330 
640 IF AB < 100 THEN FRINT : PRINT 
"DU HAST ZU WENIG ARBEITER Z 
UM BAUEN....": HOME : GOTO 7 
60 
650 FRINT : FRINT "DER BAU DER F 
YRAMIDE GEHT WEITER. vu..." 
660 FOR I = 1 TO 1000: NEXT I 
670 NB = INT (AB / 100000) + 1 
680 HOME :TE = TE + NB 
690 GR : COLOR='11 
700 FOR I = 39 TO 39 - TE STEP- - 
1 
710 IF I < 21 THEN FOR W = 10 TO 
100 STEF 10: FOKE O,W: POKE 
1,10: CALL 771: NEXT W: GOTO 
1400 
720 X = 39 - I:X1 = I: HLIN X,X1 AT 
Iz FOKE 0,(5 * ID): FOKE 1,1: 
CALL 771 
730 NEXT I 
740 VTAB 22: FRINT "DAS BAUERGEB 
NIS DIESES JAHRES... ,....." 
750 FOR I = 1 TO 3000: NEXT Is TEXT 
:» HOME 
760 IF F < 1000 THEN FRINT = FRINT 
"DU RUINIERST JA ALLES.....D 
ER FHARAD ": PRINT : FRINT " 
VERFLUCHT DICH UND DER TOTEN 
GOTT ANUBIS": FRINT : FRINT 
"HAT EINEN NEUEN GAST....... 
": END 
770 VTAB 1: HTAB 14: INVERSE : FRINT 
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APPLE II 


"JAHRESBERICHT": NORMAL 

IF AB + P < 7000060 THEN PRINT 
: FRINT "DIE EINWOHNER LEIDE 
N SEHR UNTER DIR....": PRINT 
: PRINT "EINE REVOLUTION IST 
DIE FOLGE.....DU": PRINT : 
“STIRBST SCHMACHVOLL. „=... " 
: G0TO 1370 

JA= JA+ 1: 
: PRINT "DAS &-TE JAHR BRICH 
T AN....DIE HAELFTE": PRINT 
: PRINT "DEINER ZEIT IST FAS 
7 UM: „Je 

NW. = INT ((1000 * TE) * RND 
(1)) + 12 PRINT = FRINT NW; " 
NEUE EINWOHNER ZOGEN DIESES 
"2 FRINT : PRINT "JAHR -IN UN 
SERE FROVINZ..„nu.." 

NT = INT ((500 * TE) * RND 
(1)) + 12 PRINT = PRINT. NTz" 
EINWOHNER STARBEN DIESES JA 
HR....":P=P+NW:P=P-N 
% S 
IF JA > 13 THEN PRINT = PRINT 
"DU HAST ES NICHT GESCHAFFT 
EINE ": FRINT : PRINT "EINFA 
CHE FYRAMIDE ZU BAUEN. annn.. 
"= PRINT = FRINT "DESWEGEN W 
IRST DU DEN HEILIGEN ": PRINT 
: PRINT "KROKODILEN VORGEWOR 
EB. „7: 2, "TREND 


IS = IS + NT:IE = IE + NW 
FRINT : PRINT "EIN NEUES JAH 
R BRICHT AN........": GOSUB 
1330 

F=F + AB:AB = 0: GOTO 390 
REM *%*%* FEHLER *#%*%* 

FRINT =: FRINT "FEHLER LIEBT 


DER FHARAO NICHT......DU": 
: PRINT "WIRST HINGERICHTET. 
"= G0TO 1370 
KLAU = INT (6 * 
1 
PRINT : PRINT "DIE PRIESTER 
DES TOTENGOTTES ANUBIS": PRINT 
: FRINT "BESCHLAGNAHMTEN "3: 
INVERSE =: FRINT KLAU;=: NORMAL 
: FRINT " SPEICHER" 
FRINT : FRINT "VOLL 
6 =6 - KLAU: RETURN 
REM *%** FELDER WEG 
KLAU = INT (F 7/2 x 
vw 
FRINT : FRINT "EINFALLENDE K 
REUZRITTER BESCHLAGNAHMTEN": 
INVERSE =: FRINT =: FRINT KLA 
Us: NORMAL : PRINT " FELDER 
UNSERES HEIMATLANDES. ....." 
F= F - KLAU: RETURN 
REM #*%*%* SONDERSTEUER #** 
GIB = INT (10060 * RND (1)) 
FRINT : FRINT "EINE. SONDERST 
EUER ERBRACHTE ";: INVERSE : 


RND (1)) + 


KORN. ... 


*r% 
RND (1) 


Homecomputer 


PRINT 


IF JA = & THEN FRINT 


PRINT 


27 





APPLEN 











PRINT GIB: NORMAL : FRINT : 1280 REM #%*%* MORDANSCHLAG *** 
PRINT "SPEICHER VOLL KORN E 1290 XX = INT (100 *& RND (1)): IF 
IN an xXX < 40 THEN 1320 
990 6 = G + GIB: RETURN 1300 PRINT : FRINT "DU BIST KNAF 
1000 REM #*%* GESCHENK **%* . F EINEM MORDANSCHLAG ": PRINT 
1010 GIB = INT (1000 * RND (1)) : FRINT "ENTRONNEN. ...." 
! 1310 RETURN 
1020 FRINT =: FRINT "DER PHARAO B 1320 FRINT : PRINT "DU BIST EINE 
EWEIST SEINEN GUTEN WILLEN": M MORDANSCHLAG ZUM OFFER": FRINT 
PRINT # PRINT "UND SCHENKT : PRINT "GEFALLEN...DEINE BE 
DIR ";z INVERSE : FRINT GIB; ERDIGUNG FINDET": FRINT : FRINT 
: NORMAL : FRINT " FELDER... "BALD STATT......": END 
5 13350 REM #%*** TASTE **%**+ 
10350 F = F + GIBr RETURN 1340 PRINT : PRINT "BITTE EINE T 
1040 REM %*%** FLUTWELLE #*** ASTE DRUECKEN„ » nn nuun u." 
1050 KLAU = "INT (100 # RND (1)) ‚| 1350 _IF FEEK ( - 16584) < 128 THEN 
, ö GOTO 1350 
1060 PRINT : PRINT "EINE FLUTWEL 1360 GET WW$: FOKE 0,100: FPOKE 1 
LE VERNICHTETE ";: INVERSE : „10: CALL 771: FOKE 0,100: POKE 
PRINT KLAU: NORMAL = FRINT 1,10: CALL 771: FOKE 0,100: FOKE 
: PRINT "FELDER UNSERER PROV 1,10r CALL 771: POKE 0,150: FOKE 
EL.) 1,15: CALL 771: RETURN 
1070 F = F - KLAU: RETURN 1370 REM *%** ANGABE #**%* 
1080 REM #*%*%* EINWANDERUNG **%* 1380 ° PRINT : FRINT "UNTER DEINER 
1090 DAZU = INT (P* RND (1)) + HERRSCHAFT STARBEN "518: PRINT 
1 - : FRINT "LEUTE UND "z3IE;3" LE 
1100 IE = IE + DAZU UTE WANDERTEN": FRINT : PRINT 
1110 PRINT : PRINT "UNSERE PROVI SEINWER. . „" 
NZ IST SO BELIEBT GEWORDEN," 1390 END 
: FRINT : PRINT "DASS "s;: INVERSE| 1400 REM x#**** ENDE **%*%4* 
» FRINT DAZU;=: NORMAL : FRINT 1410 SPEED= 100 u 
" LEUTE EINWANDERTEN....." 1420 TEXT : HOME = PRINT.."DU.HAS 
1120,P =.F + DAZU: RETURN T ES GESCHAFFT. ....DU HAST D 
1130 REM *%*%* STERBEN #** IE": FRINT : PRINT "FPYRAMIDE 
1140 WEG = INT (P * RND (1)) + GEBAUT....DIR WIRD NUN DIE" 
1 =: PRINT = FRINT "EHRE ZUTEIL 
1150 IS = IS + WEG MIT UNSEREM FHARAO DARIN": PRINT 
1160 PRINT : FRINT "DURCH EINE P : PRINT "BEGRABEN ZU WERDEN. 
ESTEFIDEMIE STARBEN. DIESES": u. 3 
FRINT 3 PRINT "JAHR "3: FLASH 1430 _SFEED= 255: FOKE 0,100: POKE 
: PRINT WEG;: NORMAL = PRINT 1,10: CALL 771: POKE 0,100: FOKE 
BEI EOTE..... - 1,10: CALL 771: POKE 0,100: FOKE 
1170 F = P- WEG: RETURN 1,10: CALL 771: FOKE 0,150: FOKE 
1180 REM *%*%* PYRAMIDE *%** 1,15: CALL 771 
1190 IF TEx< 2 .THEN RETURN 1440 GOTO 1370 
1200 EIN = INT (ET * RND (1)) + 1450 REM WRITTEN BY 
1 1455 REM CARSTEN FREY 
1210 PRINT : PRINT "DURCH EINE E 1460 REM DAMMWEG 12 
RDBEBEN WURDEN. ";: INVERSE : 1470 REM 6940 WEINHEIM-SULZBACH 
FRINT EIN: NORMAL =: PRINT : 
FRINT "SCHICHTEN DER FYRAMI 


DE VERNICHTET. » un..." PYRAMID BUILDER 


| 1220 ET = ET - EIN: RETURN COPYRIGHT >1985< BY CARSTEN FREY 


| 1230 REM *%*%* STREIK *#** 6940 WEINHEIM-SULZBACH 
1240 PRINT : FRINT "DEINE ARBEIT 


ER STREIKTEN.ES KAM ZUR": PRINT 
: PRINT "BLUTIGEN AUSEINANDE 
RSETZUNG. „.»».. nun" 

1250 TT = INT (AB* RND (1)) + 
1: FRINT =: PRINT "ES STARBEN 

"sz INVERSE : FRINT TT;z NORMAL 

s. FPRINDUZARBEITERun en..." 

1260 IS = IS + TT 

1270 AB = AB - TT: RETURN 


| 28 Homecomputr BE 2 November 1983. 











Survival 
für den Apple II 


Stellen Sie sich vor, Sie überqueren mit Ihrem Privatflugzeug die Wüste und müssen 
wegen eines Motorschadens notlanden, womit der Kampf ums Überleben beginnt. 


Die Chance auf Hilfe zu treffen ist 
gleich null. Ihnen bleibt nichts anderes 
übrig, als auf eigene Faust durch die 
Wüste zu wandern, um die nächste 
Stadt zu erreichen und die damit 
verbundenen Gefahren so gut wie 


möglich zu meistern. mehr. 

Sie werden bald vor dem lebensbedro- | Mit ”Survival” hat man ein sehr unter- 
henden Problem stehen, den chro- | haltsames Spiel, für das man ruhig ein 
nischen Wassermangel in der Wüste | bischen Zeit opfern sollte. 
überwinden zu müssen, kriegerische 

Nomaden zu bekämpfen und vieles 
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CLEAR 

REM OHR 

REM #*S5SURVIVAL+ 

REM * WRITTEN FOR THE * 

REM * AFPFLE ÜüA BY * 

REM * CARSTEN FREY * 

REM BREI 

HOME : VTAB 2: HTAB 13: FRINT 
SURVIVAL" 

VTAB 14: HTAB 6: FRINT "WRITT 
EN BY "z;: INVERSE : PRINT "C 
ARSTEN FREY": NORMAL 
VTAB 6: HTAB 6: INVERSE : PRINT 
"1."32 NORMAL =: FRINT " BEGI 
NNER": VTAB 8: HTAB &: INVERSE 
» FRINT "2."3;: NORMAL : PRINT 
" EXPERTE": VTAB 10: HTAB &: 

INVERSE : FRINT "3."3: NORMAL 
: FRINT " MEISTER EXFERTE" 

VTAB 12: HTAB &: FRINT "WELC 
HER LEVEL ?"3: GET LE$:LE = 

VAL (LES): IFLE< LIORLE > 

3 THEN 80 

POKE 771,173: FOKE 772,48: POKE 
773,192: POKE 774,136: FOKE 
775,208: FOKE 776,4: FOKE 77 
7,198: FOKE 778,1: FOKE 779, 
240: POKE 780,8 

FOKE 781,202: FOKE ‚782,208: FOKE 
783,246: FOKE 784,166: POKE 
785,0: POKE 786,76: POKE 787 
‚3: POKE 788,3: FOKE 789,96' 
EN(1) = Z00:EN(2) = Z00:EN (3) 

= 400 

NA = 5 - LE:HK = 
E) 

HOME : FOR I = 200 TO 10 STEF 
- 1: POKE 0,1: POKE 1,5: CALL 
771: NEXT I: FOR I = 1 TO 10 
: FOKE O,(I * 20): POKE 1,10 
s CALL, 771: NEXT I 
FRINT "IHR FLUGZEUG HATTE MO 
TORSCHADEN. »......"2: PRINT : 
PRINT "SIE SIND MITTEN IND 
ER SAHARA GELANDET." 
FRINT =: INVERSE = FRINT "1." 
s2 NORMAL =: FRINT " AUFGEBEN 
"2 PRINT : INVERSE : FRINT " 
2.";3=2 NORMAL =: FRINT " AUF H 
ILFE WARTEN": FRINT : INVERSE 
: FRINT "3."3;2 NORMAL = FRINT 


INT (20 / L 


" DURCH DIE SAHARA WANDERN": 
FRINT = INVERSE : FRINT "4. 
"zz NORMAL 

FRINT " NACH SACHEN SUCHEN": 
FRINT = PRINT "WAS MACHEN S 
IE (1...4) ? "zj2 GET WN$:WN = 
VAL (WNE&): IF WN < 1 ORWN > 
4 THEN FRINT : GOTO 180 

IF WN > 1 THEN GOTO 220 

FRINT : PRINT : FRINT "SIE " 
s: INVERSE : FRINT "WASCHLAF 

FEN"z: NORMAL = FRINT "...UN 

D WESHALB HABEN SIE": FRINT 

: FRINT "BITTE SEHR DAS SFIE 

L BSESTARTET......": END 

IF WN > 2 THEN GOTO 240 

PRINT z FRINT : FRINT "NACH 

- IHNEN SUCHT DOCH KEIN NORMAL 
ER": FRINT = FRINT "MENSCH... 
un.."32 INVERSE : FRINT "IDI 
OTISCH"z;= NORMAL : FRINT ".. 
..": GOTO 180 
IF WN « 4 THEN 380 
IF S(1) > © THEN FRINT ı FRINT 
: FRINT "SIE WERDEN NICHTS M 
EHR FINDEN. ...MEINEN": FRINT 
: FRINT "SIE ETWA SIE BEKOMM 
EN NOCH IMMER ETWAS": PRINT 
= FRINT "VON MIR ? "= GOTO 1 
80 

S(1) = INT (10 * RND (1)) + 
10:5(1) = St1) - INT (LE * 
5?) 

FRINT : FRINT : FRINT "SIE F 
INDEN ";: INVERSE : PRINT St 
1);3=2 NORMAL =: FRINT " LITER 

WASSER IN": FRINT : FRINT "E 
INEM KANISTER. „„..." 

S(2) = 4 - LE: FRINT : PRINT 
"UND "zz: INVERSE : FRINT S(2 
);5= NORMAL = FRINT " WASSERE 
INIGUNGSTABLETTE (N). ..." 

SF) = 4 - LE=z FRINT : FRINT 


"DANN FINDEN SIE NOCH ";: INVERSE 


: FRINT S(3)5: NORMAL =: FRINT 
" AMFULLEN"”: PRINT : PRINT " 
GEGEN GIFTE ALLER ART. ....." 


IF LE > 1 THEN 320 


FRINT PRINT "SIE FINDEN AU 
CH NOCH EINE FISTOLE UND":St( 





4) = 1:5(5) = INT (5 %* RND 

(13) + 22 FRINT : INVERSE =: PRINT 
S(5)zz NORMAL : PRINT " FATR 
ONEN. „2... " 

IF LE > 2 THEN 340 

FRINT =: FRINT "EINE SIGNALRA 

KETE FINDEN SIE AUCH NOCH": FRINT 
: FRINT "UND GLEICH DANEBEN 

EIN BEUTEL VOLLER": FRINT : PRINT 
"MURMELN.„...."35(6) = 1:5(7 
ı=1 

FRINT : FRINT "UND AUCH EINE 

N "zz INVERSE =: PRINT "KOMPA 
SS"52 NORMAL = PRINT "....." 

: FRINT 
so) = 1 

FRINT "BITTE EINE TASTE DRUE 
CKEN. vun uuunun" 

WAIT - 16384,128: FOKE - 1 
6368,0: GOTO 180 
TA = TA + 12 HOME : FRINT "TA 

G : ";:z INVERSE : PRINT TA: NORMAL. 
FRINT : FRINT "DU BESITZT : 

GOSUB 1440 

FRINT : FRINT "ENTFERNUNG ZU 

R STADT = "zz INVERSE =: PRINT 
EN(LE);= NORMAL =: FRINT " KM 


PRINT =: FRINT "BITTE EINE TA 
STE DRUECKEN. „.u......"3 WAIT 
- 16384,128: FOKE - 16368, 


[0] 
PRINT =: FRINT "IHRE NAHRUNG 
REICHT NOCH GANZE ";: INVERSE 
» PRINT NA: NORMAL =: FRINT : 
PRINT "TAGE. 0. 0foaa" 
FRINT =: FRINT "WIEVIELE KILO 
METER WOLLEN SIE HEUTE": PRINT 
: FRINT "HINTER SICH BRINGEN 
(MAX. "3HKE") "52 INPUT WK$ 
WE = VAL (WKF): IF WE x © OR 
WE > HK THEN PRINT =: PRINT 
"DAS GEHT LEIDER NICHT...... 
"= GOTO 440 
TT= INT (WE 7 4) + 1: FRINT 
: FRINT "WIEVIEL WASSER WOLL 
EN SIE HEUTE ZUSICH": FRINT 
PRINT "NEHMEN (MIND. ";TT; 
"2 INFUT WWszWW = VAL 
WWE): IF WW © OO OR WW > S(1) 
THEN FRINT : FRINT "DAS GE 
HT LEIDER ‚NICHT. „u... "#1 BOTO 
450 5 
NA = NA - 1: IF NA © 1 THEN PRINT 
: PRINT "DU BIST LEIDER VERH 
UNGERT....": GOTO 1600 
REM *%*%%* RECHNEN #*%*%* 
IF WW £ TT THEN FRINT : FRINT 
"DU LEIDEST UNTER ";: INVERSE 
: FRINT "WASSERMANGEL";: NORMAL 
» FRINT " DAS": FRINT : PRINT 
"WIRKT SICH SO AUS DAS DU LA 
NGSAMER": FRINT : FRINT "GEH 
EN MUSST....":W(1) = W(l1) + 





1:2HK = HK - 2: IF W(1) > 1 THEN 
FRINT = FRINT "UND DAS DU S 
TERBEN MUSST......"z END 


480 S(1) = St1i) - WW: IF S(1) < 4 


THEN FRINT z INVERSE : FRINT 
"DU SOLLTEST WASSER FINDEN ! 
"2 NORMAL 
IF WW < 1 THEN FRINT : FRINT 
"DU BIST LEIDER VERDURSTET ! 
ıı"2 FRINT = FRINT "NIMM'S N 
ICHT TRAGISCH...DAS LEBEN HA 
T": FRINT = FRINT "AUCH NETT 
E SEITEN.......": GOTD 1600 


500 EN(LE) = EN(LE) - WE: IF WE = 


Ss1o 


520 


530 


S40 X 
550 


Seo 


570 


580 


5970 


6800 


640 X 
650 
660 


HK THEN HK = Hk - 1: IF EN(L 
E) © 1 THEN PRINT : PRINT " 
DU HAST ES GESCHAFFT... „DU 
BIST SUFER.": FRINT : PRINT 
"NACH "zTA;" TAGEN BIST DU I 
N EINER": FRINT : PRINT "STA 
DT ANGEKOMMEN. »......"t GOTO 
1600- 
PRINT : PRINT "DU WANDERST ,W 
ANDERST UND WANDERST. 22..." 
FOKE 0,100: FOKE 1,10: CALL 
7741 
IF INT (10 * RND (1)) X & THEN 
GOTO 380 
= INT (8* RND (1) +1 
ON X GOSUB 690,760,820,1130, 
1220,1340,1380,610 
FOKE 0,100: FOKE 1,10: CALL 
771 
FOKE 0,100: FOKE 1,10: CALL 
771 
FOKE 0,100: FOKE 1,10: CALL 
771 
FOKE 0,150: FOKE 1,15: CALL 
771 
FRINT : FRINT "BITTE EINE TA 
STE DRUECKEN. ».......": WAIT 
- 16384,128: POKE - 16368, 
©: GOTO 380 
REM *%**%* KANINCHEN ***% 
FRINT : FRINT "DU SIEHST EIN 
KANINCHEN IN DER SAHARA": FRINT 
: FRINT "HERUMHOFPELN. . „WILL 
ST DU VERSUCHEN DAS": FRINT 
: PRINT "TIER ZU ERLEGEN (J/ 
N) ? "32 BET YN$: IF YN$ = " 
N" THEN RETURN 
FRINT : IF S(5) <& 1 THEN FRINT 
: PRINT "KLICK...DU HAST KEI 
NE FATRONEN MEHR....": PRINT 
: FRINT "DAS KANINCHEN HOFFE 
LT WEG.....": RETURN 
= INT (S# RND (1) +1 
DN X GOTO 660,670,680 
FRINT : PRINT "DU HAST VORBE 
IGESCHOSSEN SCHADE... ": 
FRINT : FRINT "EINE FATRONE 
WENIGER. .....":18(5) = S(9) - 
1: RETURN 
FRINT : FRINT "DAS KANINCHEN 
WAR EINE FATA MORGANA....": 





FRINT = FRINT "DU HAST INS 
LEERE GESCHOSSEN 
) = 5(5) — 1: RETURN 
FRINT = FRINT "DU HAST GETRO 
FFEN....DAS KANINCHEN ": FRINT 
: FRINT "ERGIBT NAHRUNG FUER 

-"ıNA = NA + 2:5 
(5) S(5) 1: RETURN 
REM #%*#%*%* FLUGZEUG ###**%# 
FOR I = 1 TO 1S5:E = PFEER ( - 
16336): NEXT I 
FRINT = FRINT "EIN FLUGZEUG 
FLIEGT AM HORIZONT. 

IF S(6) < 1 THEN FRINT : PRINT 
"UND DU HAST KEINE SIGNALRAK: 
ETE- ns una." FOR T= 1 TO 2 
000: NEXT Iz RETURN 
FRINT =: FRINT "WILLST DU DEI 
NE EINZIGE SIGNALRAKETE ": FRINT 
» FRINT "ABFEUEREN (J/N) 7 " 
;3: GET YN$: IF YN# = "N" THEN 

FRINT =: FRINT "OKAY,DANN EB 
EN NICHT. .....": FOR I = 1 TO 
1000: NEXT I: RETURN 

= INT (10 * RND (1)): IF 
X > 3 THEN PRINT : GOTO 750 


FRINT : FRINT "DU HAST ABER 
AUEH EIN PECH HEUTE a sans "3 
FRINT : FRINT "NICHT ZU GLA 
UBEN...„..DAS FLUGZEUG HAT "= FRINT 
: FRINT "ABGEDREHT....KOMMUN 
IST ?": FOR I = 1 TO 2000: NEXT 
I: RETURN 
FRINT =: FRINT "DAS FLUGZEUG 
LANDET UND NIMMT DICH AUF": FRINT 
: FRINT "DU BIST SERETTET.GR 
ATULATION !!!"z GOTO 1600 
REM ##%*%*%* STURM *#%*%#%* 
PRINT =: FRINT "STURM.....HIL 
FE. .».STURM. zes uu." 
FOR I = 10 TO 30 STEF 5: FOR 
J = 100 TO 10 STEP - 10: POKE 
0,J: POKE 1,I:s CALL 771: NEXT 
Jı NEXT I 
IF S(8) > O THEN FRINT : PRINT 
"DANK DEM KOMFASS HABEN SIE 
SICH NICHT": FRINT z PRINT " 
VERIRRT.«.....": FOR I = 1 TO 
2000: NEXT I: RETURN 
FRINT =: FRINT "DA SIE KEINEN 
KOMFASS HATTEN HABEN SIE": FRINT 
» PRINT "SICH VERIRRT.SIE SI 
ND NUN GENAU ";:W = INT (30 
* RND (1)) + 1: INVERSE : FRINT 
W= NORMAL =: FRINT =: FRINT "K 
M IN DIE FALSCHE RICHTUNG GE 
LAUFEN. „.." 
EN(LE) = EN(LE) + W: PRINT = FRINT 
"FECH GEHABT....NEHMEN SIE '’S 
HEITER "= FOR I = 1 TO 
3000: NEXT Iz RETURN 
REM x*%*%*%* KARAWANE #*#%* 
PRINT : FRINT "SIE ERBLICKEN 
EINE KARAWANE AM HORIZONT": 











x 


x 


x 


FRINT =: FRINT "WOLLEN SIE W 
EGLAUFEN ODER WARTEN BIS": PRINT 
: FRINT "DIE KARAWANE SIE ER 
REICHT HAT (W/E) ?7"3: GET WN 
*&: IF WN& = "W" THEN 1120 

=: INT (10 #* RND (1)): IF 
x x 6 THEN 980 
FRINT 
FRINT = FRINT "ACHTUNG GEFAH 
R !!! DIE NOMADEN SIND": FRINT 
: FRINT "VOM STAMME DER ABUS 
ISSIS UND SEHR,SEHR"= FRINT 
: FRINT "GEMEIN...WOLLEN SIE 

SICH VERTEIDIGEN ?";= GET Y 
N#: IF YN£ = "N" THEN 960 
IF S(5) < 1 THEN FRINT : FRINT 
"SIE HABEN LEIDER KEINE FATR 
ONEN. „......"2 PRINT : PRINT 
"SIE WERDEN GEFANGENGENOMMEN 

UND BIS ZUM": FRINT =: FRINT 
"KOFF IM SAND EINGEGRABEN... 
„EIN DUMMES": FRINT = PRINT 
"ENDE.....TUT MIR SEHR LEID 
Ni OBE & 

= INT (3* RND (1)) +1 
IFX«< > 1 THEN 910 
FRINT =: FRINT "DIE NOMADEN N 
AHMEN SIE GEFANGEN. ABER": PRINT 
» PRINT "SCHON BALD DANACH W 
URDEN SIE WIEDER": PRINT =: PRINT 
"FREIGELASSEN......LEIDER HA 
BEN SIE " 

FRINT =: FRINT "NUN KEINE PIS 
TOLE UND KEINE FATRONEN": PRINT 
: FRINT "MEHR....VIEL FEIND 
VIEL EHR.....":S(5) = 0:5(6) 

= 0: FOR I = 1 TO 3000: NEXT 
I: RETURN 
IFXx© > 2 THEN 930 
FRINT = FRINT "IHR KAMFF WAR 

NICHT VON GROSSER DAUER..": 

FRINT =» FRINT "SIE BEKAMMEN 
EINE KUGEL INS BEIN UND ": 

: FRINT "IN DEN KOFF....SCHA 
DE.....": GOTO 1600 
FRINT :.FRINT "SIE HABEN DIE 

NOMADEN NACH EINEM ": FRINT 
» FRINT "TAFFEREN KAMFF IN D 
IE FLUCHT GESCHLAGEN": FRINT 
: FRINT "LEIDER HABEN SIE SI 
CH DABEI EINE STARKE": FRINT 
: FRINT "FRELLUNG ZUGEZOGEN 
UND EOMMEN NUN NOCH" 

FRINT :  FRINT "LANGSAMER VOR 
AN... „ SCHNECKENTEMFO 

HK = HK - 2: PRINT =: PRINT " 
DURCH DEN EAMFF VERLOREN SIE 

"s:X = INT (SS) * RND (1 
)) + 12 INVERSE : FRINT X: NORMAL 
= FRINT =: FRINT "KUGELN...." 
:5(5) Ss(S) - X 
FOR I 1 TO 3000: 


PRINT 


RETURN 


= INT (5 * 


RND (1)) + 1: IF 
xx 3 THEN FRINT : PRINT "D 





FEB, FUN: 


CREATING FANTASIES FOR 
DRAGON AND NOW 








KRAZYKONG 


All machine code version of the 
popular arcade game. 

This program has all the features 
of w original and is every bit 


[e > 
3 different screens make it 
difficult t0 beat. 








-HOPPER 


: ORIC 48K 


CENTIPEDE 





Can you help Fergy and his 
friends get across the 4 lane 
highway and back to the lilly 
fefojste 4 

Includes Crocodiles, Logs, 
varying traffic speed etc. 
ZX81 16K 


19,50% 


All machine code -very fast- 
Superb graphics Better than the 
original. \ : 

[o/ Te1:1 2 30,-- 
BBC AORB 30,-- 














MAKERS 


ZX81, SPECTRUM, 
ORIC AND BBC 








LIGHT CYCLE 








Allthe speed and excitement 
you could want, very addictive. 
Race and block the computer or 
another player. 


SPECTRUM 16K 48K 


[3 












Attack isa super fast, all machine 
code arcade style game. 

You are the Chief Security 
Officer on the prison planet 
„KOVENTRI where allthe capt - 
üred space invaders are kept 
until a humane way of dealing 
with them can be found. There 
Ne cY er 2 Ko Rute fe/gelfte Keifigelsre) 
it is arace against time to stun 
es ee m them 
to . After 
inthe open too longthey 

and become much 


P7Ye: 


Alarms begin humming loudly as 
warning lights flash at you from 
the computer control console of 
your ASTRO -CRUISER. 

Within seconds a huge ball of 
destruction explodes outside 
your observation port, battering 
the ship violently. 

A quick check of your tracking 
screen shows you to be entering 
one of the worst space storms 
Va ctdeife te His Kisteige'Flete 701117 
Your only defence is your skill 
with the laser cannon. 

We DARE you to take control 
and fight your way to safety. 
Unless you can blast a way 
through your ship will be crushed. 


SPECTRUM 48K 


1017.12]3780 

At last the version you have 
been looking for. Quite simply 
unbeatable. 

ORIC 48K 30,-- 
BBC AORB 30,-- | 


"Bestellen Sie noch. heute bei 


ORION-SOFTWÄARE - zussacı 620 + 340 Escinee 


Tel.: 05651-8559 





1060 


1070 


IE NOMADEN HABEN DICH TROTZD 

EM FRINT : FRINT "ERSCHOS 
SCHADE UM DICH..... 

: GOTO 1600 

FRINT : FRINT "DIE NOMADEN H 

ATTEN HEUTE FEIERTAG UND": FRINT 

: FRINT "HABEN DICH DESHALB 

LAUFEN LASSEN ": RETURN 


FRINT : FRINT : FRINT "DIE N 
OMADEN SIND VOM STAMME DER A 
LLALAS": PRINT : FRINT "DIES 
E SIND SEHR WISSBEGIERIG UND 

"2 PRINT = PRINT "TAUSCHEN 
AUCH GERNE. 2..." 

FRINT : PRINT "WILLST DU TAU 
SCHEN (J/N) ? "33 GET YN$: PRINT 
= IF YN£ = "N" THEN PRINT : 

PRINT "SEHR,SEHR SCHADE.... 
NA DANN. ..."z RETURN 

PRINT : PRINT "DIE NOMADEN 
BIETE DIR 10 LITER WASSER": 
: PRINT "ODER NAHRUNG FUER 2 

TAGE AN,WENN DU": FRINT : PRINT 
"IHNEN ENTWEDER. . # 

FRINT : INVERSE : PRINT "1. 

"2 NORMAL =: FRINT " EINEN K 
OMFASS" 

FRINT : INVERSE : FRINT 
NORMAL : FRINT " EINE WA 
SSEREINIGUNGSTABLETTE" 

FRINT : INVERSE : FRINT "3. 
NORMAL : PRINT " EINEN B 
EUTEL VOLL MURMELN" 

FRINT : FRINT "ODER ";: INVERSE 
= PRINT "4.";: NORMAL : PRINT 
" EINE FISTOLE GIBST...." 

FRINT =: FRINT "WAS WILLST D 
U ABGEBEN (1...4) ? "32 GET 
WWEEWW = VAL (WWE)I: IF WW < 
1 OR WW > 4.THEN PRINT : PRINT 
"DIE NOMADEN SIND NUN BELEID 
PRINT : PRINT " 
SIE KLAUEN DIR FAST ALLES... 
.„.": FOR I = 2 TO 8:8(I):0: 
I: RETURN 
Til) = 8: T(2) = 
(4 =4 

IF S(T(WW)) < 1 THEN PRINT 
» FRINT = FRINT "DAS HAST DU 

NICHT MEHR....DIE NOMADEN": 

FRINT : PRINT "VIERTEILEN D 
ICH NUN. „...FECH GEHABT. ..." 
: GOTO 1600 
S(TWW)) = 


FRINT 


um, 


NEXT 


2:T(3) = 7:T 


S(T(WW)) — 1: PRINT 
: FRINT "WAS WILLST DU NUN H 
ABEN (NAHRUNG ODER": FRINT : 
FRINT "WASSER) N/W ? GET 
WH&: IF WH& © > "N" AND WH& 
x > "W" THEN PRINT : FRINT 
: FRINT "OKAY,DANN EBEN NICH 
TS....": RETURN 
PRINT 
IF WH£ = 
2: FRINT : 


Ense 
5: 


"N" THEN NA = NA + 
FRINT =: FRINT "DI 


1100 


E NOMADEN GEBEN DIR NEUE NAH 
RUNG UND": FRINT : FRINT "BE 
DANKEN SICH BEI DIR.......": 
RETURN 

FRINT =: FRINT "DIE NOMADEN 
GEBEN DIR FRISCHES FRINT 
: FRINT "WASSER UND ZIEHEN A 
Besenuau"35ti) = S(1) + 10: 
S(1) > 20 THEN S(1) = 20 
RETURN 

FRINT : FRINT "SIE HABEN ES 
FEIGERWEISE VORGEZOGEN DIE" 
: FRINT = FRINT "STELLUNG ZU 
VERLASSEN. FOR I = 
1 TO 2000: NEXT I: RETURN 
REM *#%*%** TIER BEISST #*** 
PRINT : FRINT "DU BIST VON 
EINER SCHLANGE GEBISSEN": FRINT 
ı PRINT "WORDEN....."s IF St 
3 < 1 THEN FRINT : PRINT " 
UND DU HAST KEINE AMFULLEN M 
EHR.'.s«...."2 FRINT : FRINT " 
DU STIRBST NUN GRAUSAM IN DE 
R SAHARA...": GOTO 1600 

FRINT = FRINT "WILLST DU EI 
NE AMFULLE BENUTZEN ? "3: GET 
YN$:. IF YN£ = "N" THEN GOTO 
1190 
xX= INT (10 * 
x x 6 THEN 1180 
PRINT : PRINT : FRINT "DEIN 
E AMFULLEN SIND NUTZLOS....E 
S WAR"= FRINT =: FRINT "EINS 
CHNELLWIRKENDES GIFT...DEIN 
HERZ": FRINT =: FRINT "KRAMFF 
T SICH ZUSAMMEN......DU STIR 
BST..": GOTO 1600 

FRINT = FRINT : FRINT "DU H 
AST MAL WIEDER GLUECK GEHABT 
“...DIE": FRINT : PRINT "AMP 
ULLE KAM GERADE NOCH RECHTZE 
ITIG...": PRINT : PRINT "ABE 
R DU KANNST NUN NUR NOCH LAN 
GSAMER": FRINT = FRINT "LAUF 
EN....."z RETURN 
x= INT (10 * 
X x 6 THEN 1210 
FRINT : PRINT "GLUECK GEHAB 
T !!! ES WAR KEINE GIFTIGE": 
FRINT =: FRINT "SCHLANGE.... 
."z RETURN 

FRINT = PRINT "DAS WAR FECH 
1 DAS SCHLANGENGIFT WAR": 
PRINT = PRINT "TOETLICH.... 
TUT MIR WIEDER MAL LEID...." 
» GOTO 1600 

REM . #**%* WASSERQUELLE #*%*%* 


IF 


RND (1)): IF 


RND (1)): IF 


FRINT : FRINT "SIE SIND AN 
EINER WASSERQUELLE FRINT 

=: FRINT "ANGEKOMMEN. ..WOLLEN 

SIE IHRE WASSER-": FRINT =: FRINT 
"VORRAETE AUFFUELLEN ? ";j: GET 
YN#&: IF YN# = "N" THEN FRINT 

= FRINT "SCHADE ,VIELEICHT:. EI 





N ANDERES MAL......"z RETURN 


FRINT 
St1) = 20 
WA& = "OK":X = INT (20 * RND 
(1))z IF X < 13 THEN WAS = " 
NOK." 

IF S(2) < 1 THEN 1290 

IF S(2) > O THEN PRINT : PRINT 
"WOLLEN SIE DAS WASSER REINI 
GEN (J/N) ?"32 GET YN$: PRINT 
» IF YN$ = "N" THEN 1290 
S(2) = S(2) - 1: PRINT : PRINT 
"WASSER IST NUN SICHERLICH I 
N ORDNUNG. ..":WA£ = "OK" 

IF WA& = "NOK" THEN FRINT 
: FRINT "DAS WASSER WAR NICH 
T IN ORDNUNG.....": GOTO 131 
(6) 

PRINT : PRINT "DAS WASSER I 
ST IN ORDNUNG......SIE "r PRINT 
»: FRINT "HABEN NUN WIEDER 20 

LITER WASSER......":z RETURN 


x= INT (7* RND (1)) + 1: 

IF X < 5 THEN 1330 

PRINT : PRINT "DAS WASSER W 
AR SCHLECHTER ALS SCHLECHT." 

» PRINT : FRINT "DAS HABEN S 

IE NICHT UEBERLEBT......": GOTO 
1600 

PRINT : PRINT "SIE HABEN DA 
S VERGIFTETE WASSER DANK": FRINT 
: PRINT "IHRER GESUNDHEIT UE 
BERLEBT.....SIE": PRINT =: PRINT 
"KOMMEN NUN ABER LEIDER NUR 
NOCH ": FRINT =: PRINT "LANGS 
AMER VORAN. „.e..."5HK = HK - 
2: RETURN 

REM #%*%* PALMEN *%*%* 

FRINT =: FRINT "SIE SEHEN EI 
N FAAR PALMEN IN DER SONNE": 
FRINT : FRINT "STEHEN...WOL 
LEN SIE SICH AUSRUHEN ? ";: GET 
YN$: IF YN$ = "N" THEN FRINT 

» FRINT "ICH SFIELE JA NICHT 
„eenu.": RETURN 

IF INT (10 * RND (1)) <5 
THEN FRINT : FRINT "UNTER 
DEN FALMEN LIEGT EINE SCHLAN 
GE..."s GOTO 1130 

FRINT : FRINT "DU BIST NUN 
AUSGERUHT. . „DESWEGEN KANNST" 

: FRINT =: FRINT "DU WIEDER E 

IN WENIG SCHNELLER LAUFEN... 
":HK = HK + ir RETURN 

FRINT : FRINT "SIE FINDEN M 
ITTEN IN DER SAHARA EIN": FRINT 
» PRINT "VERHUNGERTES KAMEL 
MIT SATTELTASCHEN...": FRINT 

: FRINT "WOLLEN SIE DIE SATT 
ELTASCHE BEGUTACHTEN": PRINT 

» FRINT "(J/N) ? "32 GET YN$ 

» FRINT : IF YN#& = "N" THEN 
RETURN 


= INT (3* RND (1)) +1 

ON X GOTO 1410,1420,1430 
FRINT =: FRINT "IN DEN SATTE 
LTASCHEN BEFINDET SICH": FRINT 
: FRINT "NAHRUNG FUER 2 TAGE 
. GLUECK GEHABT "NA = NA 

+ 2: RETURN 

PRINT =: PRINT "DAS WAR ALLE 
S EINE FALLE VON NOMADEN..." 
: PRINT : PRINT "DU WIRST AU 
SGERAUBT UND ERMORDET. .„...... 
"2 GOTO 1600 

PRINT =: FRINT "DIE SATTELTA 
SCHEN SIND LEER. .„.„.....": RETURN 


REM *#*%*%* BESITZTUM *#*%** 
FRINT = INVERSE : FRINT S(1 
)z: NORMAL =: PRINT " LITER W 
ASSER.. ..." 

IF S(2) < 1 THEN 1480 

FRINT =: INVERSE : PRINT S(2 
);5=z NORMAL =: FRINT " WASSERE 
INIGUNSTABLETTE (N) " 

IF_S(3) < 1'THEN 1500 


“PRINT = INVERSE : PRINT S(3 


);=" NORMAL = FRINT " AMFULLE 

(N) GEGEN GIFT....." 

IF S(4) < 1 THEN 1520 

FRINT : FRINT "EINE "53: INVERSE 
: PRINT " FISTOLE";: NORMAL 

= PRINT "...." 

IF S(5) < 1 THEN 1540 

FRINT : INVERSE : FRINT S(5 

)s2 NORMAL : FRINT " FATRONE 
Ne..." 

IF S(6) & 1 THEN 1560 
FRINT : FRINT "EINE ";: INVERSE 
FRINT "SIGNALRAKETE"3=2 NORMAL 
PRINT "...." 

IF S(7) < 1 THEN 1580 
FRINT =: FRINT "EIN BEUTEL V 
OLL "z;= INVERSE : FRINT "MUR 
MELN"3= NORMAL =: FRINT "su... 


" 


IF S(8) < 1 THEN RETURN 

FRINT : FRINT "UND EINEN "5; 
» INVERSE : FRINT "KOMFASS"; 
: NORMAL = FRINT "....": RETURN 


REM %*%*%*%* NOCHEINMAL ***%* 
FRINT = PRINT "WILLST DU NO 
CHEINMAL DEIN TEURES LEBEN": 
FRINT : PRINT "RISKIEREN (J 
/N) ? "32 GET WN$: IF WN# = 
"J" THEN GOTO 10 

PRINT 

FRINT FRINT "AUF WIEDERSE 
HEN !! : END 

REM WRITTENFOR THE 

REM AFFLE üA BY 

REM CARSTEN FREY 

REM DAMMWEG 12 

REM 8940 WEINHEIM-SULZBACH 





Laser Force uı Jump Man 


für den Commodore 64 


Bei den beiden Spielen ”Laser Force” und ”Jump Man” handelt es sich einmal um ein 
Actionspiel, bei dem die Freunde von ständig wechselnden Geschehen am Bildschirm, . 
bestimmt auf Ihre Kosten kommen werden. Beim ”Jump-Man”-Spiel geht es zwar 
etwas ruhiger zu und die Nerven des Spielers werden nicht so strapaziert, dennoch 


heißt es auch hier: Aufpassen und immer wieder voll dabeisein. 


Als Jump-Man haben Sie die Aufgabe 
bei einem Erkundungsgang durch ein 
unerforschtes Gebiet, ständig die un- 
verhofft auftauchenden Hindernisse, 
wie Felsen oder Erd-Löcher so zu 
überspringen und zu erklimmen, daß 
Sie mit Ihrem Jump-Man nicht auf der 
Strecke bleiben. 

Hierzu ist der Anschluß des Joysticks 
an den Computer notwendig. Je nach- 
dem, wieviel Hürden man ungehindert 
bewältigen kann, zählen die Punkte: 
Pro Stein, der den linken Bildschirm- 
rand erreicht, 50 und pro übersprun- 
gener Grube 150 Punkte. 

Das Spielende stellt sich bereits nach 
begangenen 3 Fehlern ein. Also Ach- 
tung! 


Im Gegensatz zu Laser-Force verwen- 
det dieses Programm viele Cursor- 
Steuerzeichen. Passen Sie besonders 
bei Zeile 310 auf! Die langen Zeilen mit 


1a REM 
15 REM 
za REM 
€5 REM 
12 
181 DATA 
122 DATA 
123 DATA 
124 DATA 
DATA = 
DATA 

DATA 

DATA 

... 


- 


Sogn 
en 


ern 
FÜRA=Y+4ETOW +41 SP 


REM RAUMSCHIFF DATEH 
1irn,0,0,42,128,0, 


ar =NEST 


Leerzeichen in Zeile 520, 522 und 524 
werden wie folgt erklärt: In Zeile 520 
und 522 je 40 Leerzeichen, in Zeile 524 
nur 39 Leerzeichen. 

In Zeile 63010 ist das Zeichen nach 
dem inversen Herzchen, das Zeichen 
für 'CTRL/ 

PUR”. Die Striche in Zeile 63011 stehen 
für 'SHIFT/E' 


Zu Laser-Force 


Dieses Programm verwendet kaum 
Cursor-Steuerzeichen innerhalb von 
Anführungszeichen. Trotzdem sind 
folgende Erklärungen notwendig: In 
Zeile 1089 ist der negative, senkrechte 
Balken das Zeichen für "Cursor links”. 
Das inverse X in Zeile 5030 ist 
’Commodore/RED'. In Zeile 10010 
steht nach dem negativen PI-Zeichen 
einL. 


## LASER FORCE ek 


"YUN RÜBERT NITSCH 


‚ıisa, a 
a.a,0 


u ‚E: TPOKEN+28, Kr 


FORE2Z841 13: FÜKEZU42,13 


FOKEW+Z1 2" 

DATA, . 

DATA zZa4 254,21, 
DATA izd, 2ZS2,51,12 
DATAZ,Z 


‚127,127,252,53,255, 
‚132,0 


242,282 
5,239; 127,258. 1221 
2392,63,25 


‚a,0,9,0,0,0,0,0 


Fü Ei4kE4+N, G:HEH 
REM DATEN FUER MASCHINEN-PROGRAMM 


BEMEGEH LP 


2 REM UFÜS 


DATA 
DATA 
DATA 
DATA =: 
REM UFOS 


EEHEGEHN DOWN 


Ziel des Spieles ist es, mit einem 
Raumschiff ständig angreifende Tor- 
pedos abzuschießen. Zur Bewältigung 
dieser Aufgabe, stehen Ihnen 50 Laser 
zur Verfügung, die sich in regelmäßi- 
gen Abständen vermehren. Außerdem 
erscheint eine immer wieder angrei- 
fende Atomwolke, die die Bekämpfung 
der Torpedos erheblich erschwert, 
zumal diese auch nicht abgeschossen 
werden kann. 

Erreicht ein Torpedo den Bildschirm- 
rand, bleibt er stehen und engt Ihren 
Spielraum erheblich ein. Das Spiel ist 
nach dreimaliger Niederlage zu Ende: 
Jetzt fragt der Computer, ob Sie eine 
weitere Runde Ihre Gegner bekämpfen 
möchten: Wenn ja, dann drücken Sie 
die Taste ”Y”, 

Das Spiel ist auf den Joystick am 
Control-Port 1 programmiert, mit dem 
man in die obere und untere Richtung 
lenken und schießen kann. 


A: FOREZEE, 13 
RINT"D" HPOKEV+4E 1 = 


Sa,1l.177,7R.2E 


‚ia5 





DATA BECKE 


DIE NEUEN 
DATA BECKER 
BÜCHER 











64 


intern 









Das große 
Die Heimcomputerwelle rollt und nen zu Floppy- 
allen voran die COMMODORE Com- Aetmanec auann Buch 


puter mit ihrem fantastischen Preis-/ 
Leistungsverhältnis. Wer die viel- 
seitigen Möglichkeiten seines Heim- 
computers ausnutzen möchte, der 
braucht dazu entsprechende Infor- 
mationen und Programme. Beides 
finden Sie in den neuen DATA BECKER 
BÜCHERN und PROGRAMMEN. 
Geschrieben wurden Bücher und 
Programme in Deutschland von 
Experten, die die COMMODORE 
Computer in- und auswendig kennen 
und gerne ihre Kenntnisse weiter- 
geben. Klar, verständlich und mit 
vielen Beispielen - mit DATA BECKER 
BUCHERN und PROGRAMMEN 
machen Sie mehr aus Ihrem Com- 
puter. 















EIN DATA BECKER auch 





64 INTERN erklärt 
detailliert Technik 
und Betriebssystem 
des C-64 und die 
Programmierung von 
Sound und Graphik 
Ausführlich doku- 
mentiertes ROM- 
Listing, zahlreiche 
lauffertige Beispiel- 
programme und 2 
Original-Schaltpläne 
zum Ausklappen. 
Dieses Buch sollte 
jeder 64-Anwender 
und Interessent 
haben 

ca. 320 S.; DM 69,- 


64 TIPS & TRICKS ist 
eine echte Fund- 
grube für jeden 
COMMODORE 64 
Anwender. Umfang- 
reiche Sammlung 
von POKE's und 
anderen nützlichen 
Routinen, BASIC- 
Erweiterungen, 
Graphik und Farbe 
für Fortgeschrittene, 
CP/M, Multitasking, 
mehr über Anschluß- 
und Erweiterungs- 
möglichkeiten und 
zahlreiche lauffertige 
Programme 

ca. 290 S.;DM49,- 


DIE NEUEN 
DATA BECKER 
PROGRAMME 


Der COMMODORE 64 ist ein Super- 
computer zu einem schon fast 
unglaublich niedrigen Preis. DATA 
BECKER präsentiert Ihnen jetzt hierzu 
eine passende Software-Serie: aus- 
gereifte, professionelle Programme 
mit hervorragenden Leistungsmerk- 
malen und detailliert beschrieben, bei 
denen nur in einem Punkt ein Kom- 
promiß gemacht wurde - beim Preis! 
Jedes einzelne dieser ausschließlich 
auf Diskette gelieferten Programme 
kostet sage und schreibe nurDM99,-. 
Hier zwei aktuelle Beispiele: 










Ounhottan-Programmierung. 
| mr COmMODDRE 





Em Dura nec«en auch 
EIN Dura BECKER auch 


64 FÜR PROFIS 
zeigt, wie man erfolg- 
reich Anwendungs- 
probleme in BASIC 
löst und verrät 
Erfolgsgeheimnisse 
der Programmier- 
profis. 5 komplett 
beschriebene, lauf- 
fertige Anwendungs- 
programme (z.B 
Adreßverwaltung) 
illustrieren den Inhalt 
der einzelnen Kapitel 
beispielhaft. Mit 
diesem Buch lernen 
Sie gute und erfolg- 
reiche BASIC- 
Programmierung 

ca. 220 S.; DM 49,- 


DAS GROSSE 
FLOPPY-BUCH erklärt 
detailliert die Arbeit 
mit der Floppy 
VC-1541, von der 
sequentiellen Daten- 
speicherung bis 

zum Direktzugriff, für 
Anfänger, Fort- 
geschrittene und 
Profis. Ausführlich 
dokumentiertes 
DOS-Listing, zahl 
reiche lauffertige 
Beispiel- und 
Hilfsprogramme, z.B, 
Disk Editor und Haus- 
haltsbuchführung 

ca. 320 $.; DM 49,- 


DATAMAT 


Eine universelle Dateiverwaltung, die 
Sie von der Adressverwaltung über 
Mitgliederverwaltung bis hin zur 
Lagerbuchführung auf vvielfältigste 
Weise nutzen können. Die frei gestalt- 
bare Eingabemaske kann bis zu 50 
Felder, max. 40 Zeichen pro Feld und 
bis zu 253 Zeichen pro Datensatz 
enthalten. Bis zu 2000 Datensätze 
pro Diskette sind möglich. Nach allen 
Feldern kann selektiert und sortiert 
werden, sogar nach mehreren gleich- 
zeitig. Auswertungen können als 
Listen gedruckt oder in eine Datei als 
Verbindung zu TEXTOMAT geschrie- 
ben werden. DATAMAT ist (natürlich) 
menuegesteuert, in deutsch und 
dadurch extrem bedienerfreundlich. 
Ein Superprogramm, das zu jedem 
64er gehören sollte. Komplett mit 
umfangreichem deutschen Hand- 
buch nur DM 99,-. 


Ei Porigeschrtiene 
und pro 


MACHT MEHR AUS IHREM 
COMMODORE COMPUTER 



















VC-20 INTERN ist für 
jeden interessant, 
der sich näher mit 
Technik und Maschi- 
nenprogrammierung 
des VC-20 auseinan- 
dersetzen möchte. 
Detaillierte tech- 
nische Beschreibung 
des VC-20, ausführ- 
liches ROM-Listing, 
Einführung in die 
Maschinenprogram- 
mierung und 3 Origi- 
nal-Schaltpläne. 

ca. 230 S.; DM 49,- 


VC-20 TIPS & TRICKS 
ist eine echte Fund- 
grube fürjeden 
VC-20 Anwender 
Sound und Graphik 
Programmierung, 
Speicherbelegung 
und Speichererwei- 
terung, BASIC-Erwei- 
terungen, POKE's 
und andere nützliche 
Routinen, zahlreiche 
lauffertige Beispiel- 
und Anwendungs- 
programme und 
vieles andere mehr. 
ca. 230 5.; DM 49,- 


TEXTOMAT 


Ein außergewöhnliches Textverar- 
beitungsprogramm: 80 Zeichen pro 
Zeile durch horizontales Scrolling, 
Ausdruck bis zu 255 Zeichen, 
Textlänge bis zu 24000 Zeichen im 
Speicher, Verketten von Texten, 
umfangreiche Textbausteinverarbei- 
tung und Formatierungsmöglichkeit, 
Formularsteuerung, Anpassung an 
unterschiedliche Drucker, Disketten- 
verwaltung, umfangreicher Befehls- 
satz, Schnittstelle zu DATAMAT zur 
Erstellung von Rundschreiben mit 
individueller Anrede. TEXTOMAT ist 
komplett in Assembler geschrieben 
und extrem schnell. Menuesteue- 
rung, deutsche Benutzerführung und 
ausführliches deutsches Handbuch 
machen gerade auch für Anfänger 
die Arbeit mit TEXTOMAT zum Kinder- 
spiel und das zu dem sagenhaften 
Preis von nurDM 99,-. 


DA BLEIBT KEINWUNSCHOFFEN — UND DA STEHT ALLES DRIN! 











Wir sind Montag bis Freitag 
und an allen langen Samstagen von 
10-18 Uhr für Sie da. 


IHR GROSSER PARTNER FÜR KLEINE COMPUTER 


In unserem 1000 qm großen 

Ausstellungszentrum in Düsseldorf 

finden Sie 

@ führende Computermarken des 
Weltmarktes vom preiswerten 
Homecomputer bis zum Büro- 
system mit Festplatte 

® vielseitige Peripheriegeräte von der 
Maus über den Spezialdrucker bis 
zum Netzwerk 

® eine riesige Softwareauswahl 

®@ Europas größte Auswahl an EDV- 
Literatur 

@ qualifizierte Beratung durch über 
20 geschulte Fachberater und 
Software-Experten 

@ Schulungen und Seminare 





Unser 80 (!) seitiger Spezialkatalog mit dem riesigen 


DM 3,- in Briefmarken an. 


Angebot rund um COMMODORE 64, EXECUTIVE und 
VC-20, mit der großen Druckerauswahl vom kleinen 
Listing-Drucker über Vierfarbplotter und Typenrad- 
drucker bis zum Schnelldrucker mit Einzelpunkt- 
graphik und Schönschrift, mit preiswerten Floppies, 
Monitoren und weiteren vielseitigen Peripherie- 
geräten, mit IEC-Bus und 80-Zeichen-Karte, 

mit universellen Interfaces und Erweite- 
rungsmodulen, mit preiswerten neuen 
Programmen aus aller Welt vom 
Spielehit bis zur Fakturierung 
und mit aktueller Fachliteratur 
aus aller Welt. Das neue 
VC-INFO 3/83 sollte jeder Computer-Interessent 

haben. Fordern Sie es noch heute gegen 














END 
EIER 
TEN 
SE 
FE 
ge 
s x 7 ; & 
Merowingerstr. 30 : 4000 Düsseldorf - Tel. (0211) 3100 10 - im Hause AUTO BECKER . 
n N 2 
DATA BECKER BÜCHER und PROGRAMME erhalten Sie im Computer-Fachhandel, in den Computerabteilungen der Kauf- gQ F 
und Warenhäuser und im Buchhandel. Auslieferung für Österreich Fachbuch-Center ERB, Schweiz THALI AG und & Ka SEN 
Benelux COMPUTERCOLLECTIEF EI SS 
, i So , EEE 
EN FARZTER 
SS rs8 


DATF1EF,152,133, 


DATA = 
DATA 
DATA 


DATA14S.8 2.103,28 "145 .20,200,22, 8. 133,177 "a2 2ai.a2. a a 
DATA zZ08,1,2 "132. 43,2093,225,160,3,163, 32,149,82 ‚159,68,145, 20,200 
DATA ZU5 1, 212/206 1,212,132,44,298 

REM VERZOEGERUN CHLEIFE 

DATA 182,0,119,240,207,110,240,207 ,232,208,247,36 

REM TREFFER 


" DATA za0,169,129, 141,4,212,140,253,28 

DATA 
DATA 36 
REM ATOMLALEE BEMEGEN 
DATA 172,8,203,1682;,9,136,232,224,15,205,258, 
REM DATEN EINLESEH 
FORAD=431SZTORAD+58 :READE Ss FÜKERO „G :NEAT 
FORAD=43152+867 TOAD+8S5 :FERDE :FOKEAD ©: nen 
FORAC= H1SErHET7 HE TOAD+ FE SREADGGPOKERD 


FÜRAD=1F4%2565 TOAD+23 :READD : POKERD „G NER 
FORAD=135%82585 TOAD+14 RERDGGPOKERAD „Gr 
REM CATEHN 
FOFEZE4E, 12: G0ZUR LOSE 
S3z4s 
:FOHRES3247 ‚2: FOKESSZIE ‚0 
24411440: POKEW+1,132 3 7=132 


De Er HN 
KgAaSounrogmmmn 


2 
3 
= 
3 
= 
= 
= 
3 
=) 
a 
E] 
3 
EL 


POKEY+Z. 19 :POKEY+4,59 1 PUKEY+3 ,50 :POKEY+S.50 

POKEVW+21,15 

LA=S5E 

REM SPIEL 

b=& 

FOFES2Z31,8:PRINT"D" :POKESZ281,9: FPOKES32454+31 ,9: FOKEFFZHEHZOE 


J=PEER(5E321?7 


BENENNEN 
DORUASMN 


Y+7 ,FEEKIWHTD-Z 
VHrtz 
82 .PORND2SS ıPOKESS- FO“ 256 

FÜKEW +1. 

IF% JANDILE>=SAAHDLF>. STHENPOKESI+4.17 = 

IFIHTERNDN LPHZUD=SETHENPORELBEZ+4AEINTERHOE I DEZ 
1a4E D=b+1sIFOXSTHEHSYSISLSESGOTOLETE 
1a5eg IFOZ11 THENSTS4S1S2HST 
126 2 
ara ä ZAHL >= 1LORKPEER COY+ZEDAHDLD=1THENGOTO 
iar1 
1925 FRIN RE" SL FEERKLSS24EI+ZSISHPEEHR“ 
5 PRINT" "z:REM #42 LEERSTELLEHN 
” PÜKEZ1d, :PRINTSFRINT" a" 
REM = LEERSTELLEN trT 
PRINT"S"ZTABC1SI" LASER" ZINTKLAS" " 
FOKESI+4,E 
IFRHEK >. LAHDMÜ=STHENPOKEY+E ,255 : POKEY+7 „PEEK +13 oO 
IFPEEEKY+E3XSTHEHPOKEY+T ‚A:40=8 :PÜKEY+S .255 
73135 
IFPEERKS324E 
LA=L.A+.1 
SCToLeIE 


FORTSATOAE FO 


eo 
De 


Heeres pmer om 


Pe EEE 
NENErEnEREREngEn ET 


ERW MHENG 


Br 
en 
Sen 


Anni in en 





FÜFKESI+11 8 

FREINT"E"TABELID "ANOTHER GAME 7" 
GET#$:IF ""THEHSETE 
Ira$="r"THENPORKEY+S 


# 1:POKESI+1Z 
INTSFRINTTRECIEH "IL A 
:FREINTTAEXINTERHDE1 SEAN: 


I+5,0:Pü 


OEESI.174-HH 


FORH=1TOL! 
FRIHT"W" > :RETU Eh 


ae TUMP-MAH ck 

REM H RÜBERT MITSCH 

GSOSLENS: 

PRINT" eleleists) MAMEHT EITTE 
REM DATEN FUER FIGUR 


5 


Data: ‚15,2539,132,15,259,192 
DATA 15 r,132,15 

DATA E 

RATA 2, 

= DATA 

DATA 

DATA S 


[5] 
wu 
[5] 
[a1 
2] 
[a1 


“nes 


LATA 3 
DATA 
DATA 
DATA : 
DATA 
EIATA 
DATA 


FÜRAD=431SZTOAD+41 HREAD :FOKERAD „E@sHEN: 


REM DATEN 
rı = Dam 





REM AUSGAHGSFÜSTTION 
PRIHT SE" 
ci 14.13:FRINT:FRINT"3 


) POKE2A SEGPFÜHEISEIT,.T 
FÜRFF=! STOFF »PÜKEFF „S:NEST 

nl A REM SPIEL. 
iaıeı FF =  ;POKEV ‚nPOK EW+1 ,Yız=l- 
1m11 F ; 
ia1z "HEHISLS 
113 Jd=F '+31> sFÜRUM=1TOL4SNEHT 
1214 IFÜPEERCW+3LPANDEI=OTHENFOKEY+31,0:G0TOSeE 
1215 IFÜPFEERLW+3IORAND 1THENSEBE 
1aza IFINTERNDKLDFLO)=LANDGR=ETHENGE=3 :PFOKEZ14, 19H, PRINTSPRINTTABE 
a2 57543152: IFGRPETHEHGR=SGR-1 
12 I=FEEELSSSELD 
1241 IFeCJAHD45=ORNDAFSEOTHENMER-Z 
ig42 IFKIAHNDS> £ 
142 IFCJAHDLED=! 
casa I ETRENGDEEeR 
1ase PRINTSESSCHRE 2" HPLE"S" TAB 2E) "MISSTAKEE" 23-M 
1E7E IFFEEErIEZ4 Be an " 

1271 IFFEEEXITE4 1 THEHFLU=PU+S: 

1225 IFINTERNDN IDEE) ieh 2b = NEE "15599 =16EOTHENPFORELE 
1233 ER=ER-1:G0T01Ea18 
zeaa REM TUMF 
za16 Yer+RsIFrZlSsTHENR=-R 
2826 IFr=1S3THENSP=EGFÜKEN+S Hr 
2u20 RETURH 
SOdE UU=PEERCW+3L1D EFORWUH=LTOLSSHNEKT :POKEW+1 19: IFPEEK 
Sogl 51=54272:POKESI+5,0:POKESI+S, 248: FOKESI+24 ,15:PÜ 
SaaS FORSS=1SFTO2Z12STEP. 32: FÜKEW+1,55 : PO +1 ,22-7 

‚5a1g- N=M-1:SP= @: IFM=OTHENIERES See z 
Seoze GÜTOZZa 
soad HU=PEERKW+2L)GSFORUHN=1TO1S = 

sa FOKEN+ET „2:8 Er FORESI+S a S 5 »15:POKE: a 
saas = = sPOKEY+1, COEESI+1. ’ TeFOKES 
Sseie IE 
seze POKEV+2?, „A STR 
12aaa FRINT"’S"TRELE 2a) "MIBSTAR 
120165 FRINT" Melsisisjeiejeiste] ARME OMXE 
1aG26 FRINT"E AHOTHER GAME 7" 
jaa2S FORT=1TO1S:GETAF SNEST 
1ac2G GETA$ :IFAF=""THENI GGG 
aaa IFAt="Y" THENRUNSER 
END 
FORES3ZE1,.0:POK 
FOKESPEHSHZL,E 
FRIHT"SER" TRIER IS: IUMP-MAH" 

FRINTTABL SI NTTT——gg 

FRINT"DLU BIST EIH KLEINES MAENHCHEN UND REHHNS 
FRINT"DURCH DIE GEGEHL. DABEI I T Eu LÜECHER" 
FRINT"UHD FEL. EH UEBERSPEINGENH. " 

: FRIMT"BSCHLIESSE un u DEH ‚Ic EAN OCONTROLL-SFORT 1 AH." 
FREIHT"E TE . 
FRINT"S EHOFF 
FREINT"’S KH JEPPEL 
FRIHT"EIS 

: SETA&E:IFA 





[DKL BEL SELL SEE DER Den Ba DL se DE 
DENENERERTEirEienErg aeg 
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COMMODORE 64 


Autorennen 


für den Commodore 64 


Ein nervenzerreibendes Spiel rund um das Auto, bei dem es darum geht, mit Ihrem 
Rennwagen möglichst lang auf der Piste zu bleiben. Doch aufgepaßt: Die schnelle 
Fahrt wird ständig durch langsamer fahrende Fahrzeuge, die beim Überholen nicht 
gerammt werden dürfen, erschwert. 


Ausserdem darf man die Fahrbahn 
nicht verlassen. Je länger man sich auf 
der Piste halten kann, desto schwieriger 
und interessanter wird das Spiel. 
Gleichzeitig tauchen, mit den schwie- 
riger werdenden Fahrbahnverhältnis- 
sen, immer mehr Autos auf, die es gilt 


zu umfahren. 

Die Krönung des Ganzen ist dann 
noch am Schluß ein Ölfleck auf der 
Fahrbahn, auf dem man sehr leicht ins 
rotieren kommen kann. 

Um trotz alledem in das Ziel zu 


gelangen, haben Sie 3 Autos zur 


Verfügung. Aber nicht mehr, da Ihr 
Rennclub nicht mehr besitzt. Der 
Rennwagen kann durch den Joystick 
nach oben und nach unten gesteuert 
und beschleunigt werden. Für den Start 
Taste S drücken. 





® HS=8:1DIMa1(25) 


1 REM ak ak ak aka ak ale ak cal ak ea lea ea ak ae ea ea ae a ak ak 
REM an AdTORENNEN —+ 


3 REM * 





COPYRIGHT BY REDLINGER ST. %* 


4 REM * BAUGENOSSENSCHAFTSSTRASSE 14 %* 
SE REM BE RTTNANE-PHEHHEH * 


6 REM * 





SEFTEMBER 1983 * 


7 REM eakakkalakkalek a a kk 


ON EHRESTORETFORK=OTOSHREMDOEH ROT NERT- 





8 PRINT"W":PRINT" WERLAEUTERUNGEN < J/N) 


19 GETRS$: IFR$=""THENI® 


—H HR FHENSS— 





12 POKES3289,14:POKE53281,6 


13 PRINT"Q" 


—H RN RR N EAU FORENNEN“ 





16 PRINT" WBEBEBEI DIESEM SPIEL MUSST DU VERSUCHEN, " 
17 PRINT:PRINT" MIT DEINEM AUTO MOEGLICHST WEIT ZU" 





—HE RN FAR N FU FAHREN BRABEH MUSST BU ABER AUFPASSEN — 
19 PRINT#PRINT" DASS DU BEIM UEBERHOLEN LANGSAMERER" 
@® PRINT:PRINT" AUTOS NICHT MIT DIESEN KOLLIDIERST." 

—H RAN FAR HN AUSSERDEM DARFST BU BHEFAHRBAHN N EEH FI 
@2 PRINT:PRINT" VERLASSEN. JE LAENGER DU FAEHRST, DESTO" 10 
23 PRINT" SCHWIERIGER WIRD DIE BAHN. " 


November 1983 


Homecomputer 41 


—B4IPRINFHRR AN FU ERDREUFERUNGSSEFTE- BE PASTE BRUEEKEN ——— 
BS GETR$: IFR$=""THEN2S 
26 PRINT"Q" 

—br RAN FHPRAN JE SEHbH HER IBER DIE BAHN HERD BESTE“ 

28 PRINTIPRINT" MEHR AUTOS TAUCHEN AUF. BEI DEN LETZTEN" 

28 PRINT" BAHNEN IST EIN OELFLECK AUF DER PISTE," 
— 38 PRANFHRRIN FU AUF-BEM-MAN-SEHR-LEFEHF HESRUTSEHEN— 
31 PRINTIPRINT" KANN. MEHR ALS DREI AUTOS DARFST DU " 

32 PRINTIPRINT" ALLERDINGS NICHT RUINIEREN, WEIL DEIN" 

33 PRANFIRRAN FU RENNS TAGE NIEHTMEHR-BESHFZFH 
34 PRINT:PRINT" DAS AUTO KANN DURCH DEN JOYSTICK NACH" 
35 PRINTIPRINT" OBEN UND NACH UNTEN GESTEUERT UND BE=" 

— IS RAN HRRÄNFU-SEHLEUNISF WERBEN HER SFART-TASTE-S- 
38 PRINT:PRINT" DRUECKEN! VIEL GLUECK I!!!" 

55 GETHS$! IFH$=" "THENSS 

—SE HH SH THESE 
57 IFHSC>"S"THENSS 
58 PRINT" . 

— TERN -DU-BIST JETZT IN DER SP HELPHASEHH HH FORT=tTOLSOOTNERT 
77 PRINT" 

78 POKES3288, 1@:POKES3281,12 

80-9. 35298 1084 
81 FORLO=1224T01263STEP1 
82 POKELO,99:POKELO+DI,11 

—83-NEHFER: 
84 FORLU=1784T01823STEP1 
85 POKELU,188:POKELU+DI,11 

Ka Zu 2 720 
87 FORZO=1824T01223STEP1 
88 POKEZO, 160:POKEZO+D1,5 

nn an 2, SAGE nn 
98 FORGU=1824T02923STEPI 2 
31 POKEGU, 168: POKEGU+D1,5 

—BE-NEHFSH 
110 V-53248 pr) 
111 POKEV+21,3 

—HE-PEKERO4HE IH POEKEBEH TS 
128 FORN=8TOB2:READQ:POKEBSE+N,QINEXT 
121 FORN=8TOB2 : READG: POKESSS+N,G:NEXT 

—tER—FORN-BFOSEHREREH PERS EHER ——— 
123 POKE2848, 13:POKE2841,13 
124 GOSUB48838 

TE 
131 POKEV+28,3 
132 POKEV+39,2 

RE ———— 
1935 POKEV+37,1:POKEV+38,® 
136 POKEV+23,7:POKEV+29,7 

—HSF ER mHeANeS 
148 QQ=QQ+1:PRINTTABC 1BICHRK& 145)QQ" M " 
141 1FQQ>SOOTHEN2988 

HEHE EARTH HH ZH 
143 IFX2< 1OTHENX2=255 
144 IFY2<BOTHENAY=-AY 

45 HH HB FHENAr Ar 
146 IFX1>25OTHENX1=10 
153 POKEV+8,X11POKEV+1,Y1 

—4H54 POKEiHEsHEHPBKENHS Ye 
176 POKEV+31,0:WA=PEEK« V+31) 

177 IFLA=1THENGOSUB28888:60T0123 

—t78-POKEN4348- 
183 POKEV+38 ,B:WA=PEEK« V+38) 

184 IFWA=3THENGOSUB22899:G0T0123 
185-POKEN+H38-8 

186 POKESS322 ‚224 

187 J=PEEK( 56328) 

—4Bs FAND THEN Te HS FE 
189 IFCJAND1)=OTHENYI1=Y1-4:60T0148 
199 IFC JANDS)=OTHENX1=X1+5:607T0148 

sere44s 
DATA150,2,2,3,8,4,148,15,4,9,2,9,0,8 
DATA16,2,8,1,08,0,64,0,30,243,31 




































































10885 DATA®,9,98,8,8,9,98,8,9,0,98,8,9,0,8,8,9,8,8 
19808 DATA192,192,34,234,208,18,178,168,42 

re AT 
1812 DATA178,168,34,234,208,0,192,192,8,8,8 1? 
1829 DATA 8,8,0,8,0,0,8,0,0,0,9,9,9,9,8 

—4+E88 REM at SPRHFE-IeBELFLEER Hr 
1205 DATA®,®,0,8,8,9,0,0,0,9,168,8,2,168,98,2,170,8,18,179,8 13 
1208 DATA 42,178,168,42,178 

—e Bar re Hre rer 
1212 DATA 178,128,8,168,8 14 
1228 DATA®,48,8,0,0,0,0,0,0,8,8,8,9,9,9,8,8,8 

— REM SPRI FEDER PLOS TEN er — 

1418 DATA128,0,8,138,0,0,34,1,8,32,138,0, 4,198,8,4,138,0,8,34,2,2 15 
1411 DATA34,2,129,10,4,32,138,4 

RW SEITE TEE NE rer 
1430 DATA160,34,144,9,1308,24,0,139,5,2,2,2,2,2,8 16 
2888 PRINT"I" 

TB FR ee BU BIST JETZT IN DER ES HESS E 
20083 FORI=1T015908:NEXT 17 
2078 PRINT"iI" 

—BO73 POKESSESH tE+POKESSESH te 
2988 DI=55296-1924 18 
2881 FORLO=1224T01263STEPI 

—EBBE POEKEL IH POKE HH 
2883 NEXTLO 19 
2884 FORLU=1784T01823STEP1 

—BOSI POKEitH too Poker 
2885 NEXTLU N 
2087 FORZO=1824T01223STEP1 

— 2088 POKEZO SRH POKEZOHD 5 
2089 NEXTZO 7 
2898 FORGU=1824T02823STEP1 

—B9IH POKEstHtEHHPOKEStHBH 5 
2892 NEXTGU ” 
2119 V»53248 

HH PER Her 
@11@ POKE2848, 13:1POKE2941,13:POKE2942,13 73 
2130 X1=100:Y1=126:%2=255:1Y2=1900:%3=255:Y3=170 

ee  —— 
2132 POKEV+39 ,21POKEV+41,6 
2134 POKEV+48,7 

—4H9 5 Poker ST7 trPOKEVrSS 0 
2136 POKEV+23,7:POKEV+29,7 
2137 ZX=S:AX=7:AY=5:BX=12:BY=9 

RR HR N FARB AB IEHR EHI m 
2141 IFAA>1SDOTHEN4008 
2142 Ka=K2-AXtıY@=Ya+aYıX3=X3-BX:Y3=Y3+BYIX1=K1+2X 

HEHE Ha HHENKa ass 
2144 IFY@<dOTHENAY=-AY 
2145 IFY231SBOTHENAY=-AY 

rd HERR FHENN aa 
2147 IFX1>255THENX1=19 
2153 POKEV+®,X1:POKEV+1,Y1 

— 454 POKEN HE NEHROKEN+S, Ya 
2155 POKEV+4,X31POKEV+5,Y3 
2159 POKEV+31 ,O:WA=PEEK< V+31) 

— 88 1FWA=1THENGGSUB282988:60792412 
2161 POKEV+31,8 
2162 POKEV+38,B:WA=PEEK( V+39) 

—HS3 4FWA=3THENGSISUB28989:50 92442 
2164 IFWA=STHENGOSUB28988:G0T02112 
2165 POKEV+38,8 

— #177 J=PEEKSS320 3 
2178 IFC JAND1)=BTHENY1=Y1-4:60T02149 
2179 IF< JAND2)=BTHENY1=Y1+4:60T02148 

— 2189 IF JANDSI=OTHENNI=X145:60702149 
2198 G0T02148 
48988 PRINT"J" 

— 4192 PRINTER DU-BIST-JETFZF IM DER-S,SPIELPHASEHLE 000000 
4883 FORI=1T01598:NEXT 
4978 PRINT"" 

—4079 POKES22S2 12: POKESS281,12 







































































4088 DI1=-55296-1824 
4881 FORLO=1224T01263STEP1 
— 4882 RIKELSF BSH ROKEH IH ——— 
49883 NEXTLO 
49884 FORLU=1784T04823STEP1 
—48235 ROKELU ABB ROKELUHAB I —— 
4886 NEXTLU 
4887 FORZO=1924T01223STEP1 
— 4088 ROKEZO-ISCIROKEZOHO TS 
4889 NEXTZO 
48938 FORGU=1824T02923STEP1 
—IEH—RIKESUFHEHHROKESU4EH SS —— — — — 
4892 NEXTGU E " 
4118 V=-53248 
HH KA ———————— 
4112 POKE2848,13:1POKE2941,13:POKE2842,131ıPOKE2043,14 
4138 X1=80:Y1=126:%2=255: Y2=89:%3=255: Y3=179184=255:Y4=138 
—HH—ROKEN Has A ————— 
4132 POKEV+39,21POKEV+41,6 
4134 POKEV+48,7:1POKEV+42,8 y 
—H385 ROKEN+37 I HHHRSKEN+38,8— 7 
4136 POKEV+23,7:POKEV+29,7 
4137 ZX=5:AX=7:AY=51BX=121BY=B:CX=18:CY=8 
BE HARNFFAB AH EHRE HU m — 
4141 IFQQ>2S9OTHENSBBB 
4142 Ki1=X1+ZXIN2=X2-AXı YERYE+AYIX3=R3-BX 1 Y3=Y3HBYIR4=R4-CHi Y4=Y4HCY 
— 43 HERE FHENKE=255- 
4144 IFY2<8SBOTHENAY=-AY 
4145 IFY2>148THENAY=-AY 
HS HRIASFHENKS=2BEE ——————————————————— 
4147 IFX1>2S5THENX1=18 
4148 IFX4< 1L8OTHENX4=255 
—HS3--POKEN+HBHHÄHHRBKENHHIÄHL — —————— 
4154 POKEV+2,X2:POKEV+3,Y2 
4155 POKEV+4 ,X3:POKEV+5,Y3 


























—HEERHKEHETHHHRBKEN HZ Ad 
4168 POKEV+38,9:WA=PEEK( V+38) 23 
4161 IFWQ=3THENGOSUB28988:G0T04112 

—HE2—HFWA=-SFHENGSSSUBREBBBHH5E FH HE — 
4163 IFWQ=STHENY1=Y1+C< INTCRNDC 1)*48))-29) 





4164 POKEV+39,9 

—HESPEREN HH OH PEER HI 
4166 IFWA=1THENGOSUB288988:1G60T04112 
4167 POKEV+31,8 ® 

—H77 FePEEK- 55329 > — 
4178 IF<C JAND1)=BOTHENYi=Y1-4:1G0T04148 
4179 IF<C JAND2)=BTHENY1=Y1+41G0T04148 

—H89 —HFHJHANDBEI=BFHENNI=N 45450794148 
4198 GOTO4148 
8888 PRINT"iI" 

5904 PRINFIBRRRBE-BBRAVE-— 
8882 PRINTIıPRINT" BDU BIST JETZT IN DER 4.SPIELPHASE!!" 
6883 FORI=1T01588:NEXT 

—5Br Ar 
6979 POKES3289,12:POKES3281,12 
609398 DI=-55296-1824 

—69884 FORLI=4344 7943835 FEP+ 
6882 POKELO,99:POKELO+DI,11 
6883 NEXTLO 

—$5884 FORLU=4554F947935FEr+ 
6085 POKELU,188:POKELU+DI,11 
6886 NEXTLU 

—6887 #8R29=48247943435FEr+4 
6088 POKEZO, 1681 POKEZO+DI,S5 
6889 NEXTZO 

—5898-FORSU=4784F929235 FER+ 
68891 POKEGU,188:POKEGU+DI,S 
8892 NEXTGU 

—H04-53248— 
8111 POKEV+21,11 
S112 POKE28498,13:POKE29841,13:POKE29842,13:POKE29843,14 


ee ——— 



































8131 POKEV+28,15 
8132 POKEV+39 ,21POKEV+41,6 
= 17 eb en 
8135 POKEV+37,1:POKEV+38,8 
8136 POKEV+23,7:POKEV+29,7 
— HIT ER FAN HHAT HEHE HB BE HE  — 
8148 QQ=AQ+1:PRINTTABC 1BICHRS& 145)aQ" M " 
E6142 Ki=X1+ZXIN2=XB-AXIY2=YEHAYIX3=X3-BK I Y3=Y34HBYIR4=X4-CHI Y4=Y4+CY 
— E44 HFRa HB THENK2- 255 
8144 IFY@< 1O88THENAY=-AY 
8145 IFY2>153THENAY=-AY 
EHE HERAB FHENKI ESS — 
8147 IFX4< 1BTHENX4=255 
6148 IFX1>2SSTHENX1=19 
HEART HPERE HN 
68154 POKEV+2,X21POKEV+3,Y2 
6155 POKEV+4 ,X31POKEV+5,Y3 
EHE AIKEIHEFRHPOHEN HT 
68159 POKEV+3@ ,B:WA=PEEK( V+39) 
8160 IFWA=3THENGOSUBEABAB:G0TOBL1 12 
—HH464FRR=SFHENGOSUBEBEBHHBEFESHE 
S162 IFWA=STHENYI=YI+CC INTCRNDC 1)%49))-28) 
6163 POKEV+38,8 
—HEH ARE HEERES I 
8165 IFLWA=1THENGOSUB29Q88:G0TOB112 
8166 POKEV+31,8 
—bt 7 SPEER SSseH> 
68178 IFt JAND1)=ÖTHENY1=Y1-4:G0T06148 
68173 IFC JAND2)=BTHENY1=Y1+51G0T06148 
— HB HAN FHEN EHE TEE — 
6198 GOTO6148 
200088 REM UNFALL 
—BBHHA-HN=UNH 
20020 POKE2848,15:POKEV+39,7 
20021 GOSUB40H88 
—BBO4E-PRANFEHREAHTIEHR EHI BEN UNI WAGEN SF NAEHARHI MKAPUFFH 
20845 IFUN=3THEN38888 2: 
28208 RETURN 
— 39888 PR INFAgHHROKENHEH OH RSKESSSER ESS - 
388198 PRINT"MIIDEE MDU BIST "aQ" M WEIT GEFAHREN" 
38828 PRINT:PRINT" HIGHSCOREı"IHS" M" 
989 —FRHHSFHENHI SRH BE AEE HF TE  ———— 
38849 PRINTIPRINT" NOCH EIN SPIEL? <I/ND" 
39041 PRINT s 
—BBB42-ARINFIHHARBESPAHPRINT 
300850 GETF$ 
38869 IFF$="J"THENGOTOL 
—3BE7B AFFE UN FHENEND 
380875 IFF$#"H"THENGOT034933 
30080 GOTO30858 
—34999-HPENt-4teMBt 
35083 PRINTCHR% 1) "AUTORENNEN FUER CBM-64 " 
35085 PRINT 
— 95H AN EHE HF BEFAHRENG- 
35028 PRINT:PRINT" HIGHSCORE I "IHS" M" 
35038 IFAQ>HSTHENHS=aQ 
— 95948 PRANFHPRAN FI HHSHSESRE EN 488 
35841 PRINTIPRINT" NOCH EIN SPIEL? SIND" 
35842 PRINT:PRINT" H=HARDCOPY" 
— 95058 -PFANFHHHELBSEt 
35060 GOTO30858 
48888 FORK=54272T054296 1 POKEK ‚BO: NEXT 
7 7 7 7 7 
49082 POKES4276 ‚8:POKES54272 ‚d1POKES4278 ‚8: POKES4296 ‚8:1 POKES4273,8 
POKES4272 ‚8: POKES4276,8 
























































Hessens, a:pg 285,98 5 € 973 
POKES4277 ‚381 POKES4278 ‚31 1POKES4276 , 1291 POKES4296 , 151POKES4273,6 
POKES4272 ‚286: FORY=15TOBSTEP-1:FORT=1TO1S5® 1 NEXTIPOKES4296 ,YıNEXT 
—498830541=54272 
48848 FORK=8TO24:POKESI+K,QICK):NEXT 
490870 POKESI+4,85:POKESI+18,17:POKESI+11,17 


—48888 REFURN— 











Programmreservoir 
für den VC 20 


Viele Leser - wer weiß dies besser als wir - sind ausgesprochene Programmsammler. 
Weil von diesen ohnehin fast jeder einen Computer besitzt, lohnt es sich, einmal ein 
Programm zu veröffentlichen, mit dem man eine Übersicht über alle anderen 


Programme erhält. 


nicht laufen und 


Programmreservoir speichert die Pro- 
gramme die man 

a) noch abtippen möchte, 

b) schon abgetippt hat, die aber noch 


Betrieb sind. 


Ablauf des Programms: 

Zuerst druckt der Computer sein Menue auf dem Bildschirm 
aus: 

1 - Neue Eingabe 

2 - Ausgabe von allen gespeicherten Programmen 

3 - Ausgabe aller noch nicht abgetippten Programme 

4 - aller noch nicht richtig laufenden Programme 
5 - Ende 


Menue Nr. 1 
Hier beginnt die neue Eingabe. Der Bediener gibt: 
a) den Programmtitel 
b) den Heftnamen 
c) die Heftnummer/Jahrgang 
d) die Seite 
e) den Computertyp 
N) die Code-Nr.: 
0 = nicht eingetippt 
1 = läuft nicht 
2 = im Betrieb 
Auf die richtige Form der Eingabe weist der Computer bei 
der jeweiligen Eingabe hin. 


Menue Nr. 2-4 
Diese Ausgabe kann entweder auf dem Bildschirm oder 


c) diejenigen, die korrekt laufen und in 


Neben den Programmen wird das be- 


treffende Magazin, in denen sie abge- 
druckt sind, auf welchen Seiten und die 
dafür bestimmten Computertypen be- 
rücksichtigt. 


auf dem Drucker erfolgen. 


Menue Nr. 5 
Programmende 


Arbeitsweise des Programms: 

Da Dateiverwaltungen immer umständlich handzuhaben 
sind, haben wir uns entschlossen die Daten in DATA- 
Zeilen zu "poken”. Vorteil: Spätere Korrekturen sind nicht 
ausgeschlossen. 


Zeilennummern und Bemerkungen: 
10 - 100 Menue 
110 - 300 Neue Eingabe (1) 
310 - 560 Ausgabe von allen gespeicherten Program- 
men (2) 
570 - 780 Ausgabe 
Programme (3) 
790 - 1010 Ausgabe aller noch nicht richtig laufender 
Programme (4) 
1080 - 1190 Unterprogramm: Bildschirmausgabe 
1260 - 1330 Unterprogramm: 
1400 - 1460 Druckerausgabe 
ab 60000 gespeicherte Daten in DATA-Zeilen 


aller noch nicht abgetippten 


PROGSFRAMMRESERWVOo IR 


REM" 
REM" 
REM" 
REM" 
REM" 
REM" 
REM" 


REM 


COPYRIGHT BY: 


VOLKER MUECKE 
IM HAG 32, 
5188 ESCHWEILER 


MENUE 
PRINT"M1 - NEUE EINGABE" 
PRINT"BE - AUSGABE VON ALLEN 
PRINT"3 - ÄUSGABE ALLER NOCH 
PRINT" - AUSGABE ALLER NOCH 
PRINT"BS - ENDE" 
GETQS$: IFQ£=""THEN?a 
IFVAL<C QE&)I< LORYAL< QESI >5STHENI1® 
A=VALCQS) 
ONAGOTO119,310,569,799,1928 
REM" 


PRINT"ÜISPROGRAMMTITEL?E" : INPUTAS 
PRINT"BSHEFTNAMER 
PRINT" BSHEF TNUMMER/JAHRGANG?E 


MENUE NR.1 : NEUE EINGABE 


GESCHRIEBEN FUER VC-28, VC 1515 UND EVTL. 


SEP/CHIP/MC/CIZER AD": 
23782)": 


SPEICHERERWE ITERUNG 


GESPEICHERTEN PRG.” 
NICHT ABGETIPPTEN 
NICHT RICHTIG 


PROGRAMME " 
LAUFENDER PROGR." 


INPUTB$ 
INPUTCS$ 





INPUT"WISEITER";D$ 

PRINT'"BSFUER COMPUTER-TYP?E (VC-2BO/CBM/ZX-817/...2": INPUTES 
PRINT"MACODE NR.?M" 

PRINT"O=NICHT EINGETIPPT 1=LAEUFT NICHT 2=1M BETRIEB" 
INPUTF$ 

PRINT"MSSIND ALLE ANGABEN RICHTIG GEWESEN? J/N) ®" 

GETQ$: IFQ$=""THEN218 

IFOQ$="N"THEN11® 

IFQs< >" J"THEN238 

DT=289998 . 

PRINT"J">DT7 "DATA"7AS;", 

DT=DT+5 

PRINT"235 DT=";DT 

PRINT"GOTO19@" 

POKE631,19 

FORI=1T04:POKE631+1,13:NEXT 

POKE198,4:5STOP 


REM" MENUE NR.2 : AUSGABE VON ALLEN GESPEICHERTEN PROGRAMMEN" 
PRINT"WAUSGABE AUF DEM MBEILDSCHIRM ODER DEM BDEBRUCKER ?" 
GETQ$: IFQ$="" THEN33® 

IFQ$="D"THENA89 

IFQA$< >"B"THEN31® 

RESTORE 

READAS$,B$,C$,DE,E$,F$ 

IFA&= "89" THENRUN 

GOSUB1939:G0T0378 

PRINT"ÜSDRUCKER EINSCHALTEN ! 8" 

GETAS: IFQ$=""THEN410 

OPEN4 ‚4:CMD4 

PRINTCHR&t 14 ) "PROGRAMMRESERVOIR: " 

PRINTCHR&< 15) 

RESTORE 

PRINT"CODE NR.:" 

PRINT"® = DAS PROGRAMM WURDE NOCH NICHT ABGETIPPT!" 

PRINT"1 = DAS PROGRAMM WURDE ABGETIPPT,LAEUFT ABER NOCH NICHT KORREKT!" 
PRINT"2 = DAS PROGRAMM IST IN BETRIEB UND 0.K.!" 

PRINT:PRINT 

GOSUB1208 

RERDA$,B$,C$,D$,E$,F$ 

IFA$S="98 "THENPR INT#4:CLOSE4:RUN 

GOSUB1349 

G0TOS28 


REM" MENUE NR.3 * AUSGABE ALLER NOCH NICHT ABGETIPPTEN PROGRAMME " 
° 
PRINT"WAUSGABE AUF DEM BBEILDSCHIRM ODER DEM MIDERUCKER 7?" 
GETQS$: IFQ£=" "THENSS® 
IFQ$="D"THENS?A 
IFOQ&$< >"B"THENSS® 
RESTORE 
READA$,B$,C$,D$,E$,F$ 
IFA$S="09"THENRUN 
IFF&< 2"8" THENG2® 
GOSUB1939 
GOTOS28 
PRINT"SSDRUCKER EINSCHALTEN ! @" 
GETQ$: IFQ$&=" "THENSSO 
OPEN4 ‚4:CMD4 
PRINTCHR&< 143 "NICHT ABGETIPPTE PROGRAMME :" 
PRINTCHR&< 15) 
RESTORE 
GOSUB1288 
READA$,B$,C$,D$,E$,F$ 
IFA$="80"THENPRINT#4 :CLOSE4 :RUN 





7so 
77®o 
so 
rei 
798 
rsı 
so 
819 
820 
839 
848 
859 
868 
878 
888 
838 
928 
918 
9208 
938 
948 
58 
968 
979 
988 
998 
1880 
1818 
1828 
10869 
1978 
1071 
1099 
11908 
1118 
1120 
1138 
1148 
1158 
1168 
1178 
1188 
1198 
1249 
1258 
1251 
1268 
1278 
1289 
1299 
1398 
1318 
1328 
1339 
1399 
1488 
1410 
1420 
1438 
1449 
‚1459 
1468 
5999 
5999 
59399 
s898 


IFF& >"@"THEN?48 
GOSUB1342 
G0T0740 


REM" MENUE NR.4 * AUSGABE ALLER NOCH NICHT RICHTIG LAUFENDEN PROGRAMME " 


PRINT"WAUSGABE AUF DEM MEBEILDSCHIRM ODER DEM BIDERUCKER ?" 


GETQS$: IFQ$=""THENS1® 
IFQ$="D"THENS98 

IFQ$< >"B"THEN?398 

RESTORE 
READAS$,B$,C$,D$,E$,F$ 
IFA$= "88" THENRUN 
IFF$< >" 1" THEN85® 

GOSUB1938 

GOTO8SS@ 

PRINT"’SIEDRUCKER EINSCHALTEN ! m" 
GETQ$: IFQ$=""THENS1® 
OPEN4 ‚4: CMD4 
PRINTCHR&$< 14) "NICHT LAUFENDE PROGRAMME :* 
PRINTCHR&< 15) 
RESTORE 
GOSUB1288 
READA$,BS$,C$,D$,E$,F$ 
IFA$="88" THENPR INT#4:CLOSE4 :RUN 
IFF$< >" 1" THEN97®O 

GOSUB1348 

G0T0978 

END 


REM" BILDSCHIRMAUSGABE”" 


PRINT" BESPROGRAMM: 

PRINT"B";A$ 

PRINT'MEBAUS ";B£i" ";C$ 

PRINT"SSEITE ";D$ 

PRINT"BFUER ";ES£ 

PRINT"M"; 

IFF$="8"THENPRINT"PROGRAMM WURDE NOCH NICHT ABGETIPPT!" 
IFF$="1"THENPRINT"PROGRAMM WURDE ABGE- TIPPT,LAEUFT ABER 
IFF£="2"THENPRINT"PROGRAMM IST BEREITS IN BETRIEB" 
GETQ$: IFQ$=""THEN118® 

RETURN 


REM" DRUCKERAUSGABE " 


PRINT "PROGRAMMNAME : "7 
PRINTCHR$X 16) "Z5SHEFTNAME : "5 

PRINTCHRS$< 16) "35HEF TNUMMER/JAHRGANG : "7 
PRINTCHR&( 163 "55SEITE: "> 
PRINTCHR&( 163 "S2COMP.TYP:"; 
PRINTCHR&< 16) "73CODE: ” 
FORY=1T088:PRINTCHR& 15) """7 :NEXTY 
RETURN 


PRINTA&; 
PRINTCHR&( 16) "25"B$; 
PRINTCHR$( 163"35"C$; 
PRINTCHR&( 16) "55"D$; 
PRINTCHR&< 16) "62 "E$; 
PRINTCHRSC 16)."73"F$ 
RETURN 

Ta: 

8 REM" GESPEICHERTE DATEN" 
9 2 

© DATA@8,20,020,08,00,99 





NOCH NICHT!" 





Demon Attack 


für den VC 20 


”DEMON ATTACK” ist ein Abschuß-Spiel. Vor Spielbeginn erscheinen auf dem 
Bildschirm 12 Demonen und der Hauptdemon. Die Demonen werden auf dem 
Bildschirm auf durch Zufall bestimmten Positionen in einen Bereich über max. 4 
Zeilen abgebildet. Sie setzen sich durch Drücken einer Taste in Bewegung und 


können von der feststehenden Basis aus abgeschossen werden. 


Die Raketen der Basis werden durch 
Drücken der V-Taste ausgelöst. Gelingt 
der Abschuß aller 12 Objekte, so wird in 
einem Unterprogramm der Hauptde- 
mon zerstört. Danach werden die 
Demons auf tieferen Positionen neu 
gesetzt und mit höherer Geschwindig- 


keit in Richtung Basis bewegt. Dieser 
Programmablauf wiederholt sich bis 
zur Zerstörung der Basis. Die Ge- 
schwindigkeit der Objekte ist nach 
Abschuß von 48 Demonen maximal. 

Vor Beginn des Spieles und vor jedem 
Laden muß der neu definierte Zeichen- 


satz durch POKE 44,28: POKE 
7168,0:NEW und das Maschinenpro- 
gramm durch POKE 56,80 vor Basic 
geschützt werden. Das Spiel hat High- 
Score-Wertung. 


Anmerkung zum Basic-Programm 


Zeile 140 OZ Anfangsadresse des ROM-Zeichensatzes. 

Z 150 Kopierzeichensatz in den RAM-Bereich. 

Z 160 ändert die in den DATA-Zeilen 30 - 130 stehenden 
Zeichen (Demon 99, Rakete 100, Abschußbasis 101 u.a.) 

Z 170 Zeichenzeiger auf Startadresse des neuen Zeichen- 
satzes setzen. 

Z 200 In diesem Unter-Prögramm Zeilen 10.000 - 10 200 
wird das Maschinen-Programm eingepoked. 

Z 220 Bildschirmfarbe; Variable ZZ beeinflußt in Zeile 350 
durch eine Zählschleife die Geschwindigkeit des Spiel- 
ablaufs. 

Z 230 In diesen Unterprogramm-Zeilen 2 000 - 2530 wird 
der Spieltitel dargestellt. 

Z 250 PEEK (648) enthält Bildschirmpage, Multiplikation 
mit 256 ergibt Startadresse Videobild VB. 

Z 260 In diesen Unterprogramm-Zeilen 6 000 - 6 090 wird 
der Haupt-Demon oben auf dem Bildschirm dargestellt. 

Z 280 bis 310 Bestimmt in einer Schleife die zufälligen 
Positionen der Demons und übergibt die Bildschirm- 
positionen dem Datenspeicher des Maschinen-Programms - 
Speicherzellen 20 480 bis 20 516. 

Z 320 Bildschirmposition der Abschußbasis, Speichern der 
Basisadresse im Datenspeicher des Maschinen-Programms. 
Z 340 Startet Maschinenprogramm. 

Z 350 Erreicht ein Demon die Basis (PEEK(B-1) = 99), so 
wird im Unterprogramm (Zeilen 7000 - 7070) die Basis 
zerstört. 


Z 360 Speicher 20 522 enthält Daten über die Anzahl der 
abgeschossenen Demonen. Die Zählung erfolgt im Maschi- 
nenprogramm. 

Z 370 Anzeige der Gesamt-Punkte PK gleich abgeschosse- 
ne Zahl der Demonen. 

Z 380 Die im Maschinenprogramm eingeschalteten Spei- 
cher für Laut-stärke und Ton werden abgeschaltet. 

Z 390 In diesem Unterprogramm (Zeilen 8 000 bis 8 030) 
wird der Haupt-Demon zerstört. 

Z 3000 bis 3950 Unterprogramme für Buchstabendar- 
stellung im Spieltitel. 

Z9 000 bis 9 130 Auswertung des letzten Spiels und High- 
Score-Anzeige. 


Anmerkung zum Maschinenprogramm 


Im Haupt-Programm (Zeilen $5200 bis $5289) erfolgt die 
Parameterübergabe für ein Unterprogramm ($528A), das 
Zeichen und Verschieben der Rakete, falls sie abgefeuert 
wurde und die Abfrage der V-Taste ($5265 - $5269). 

Im Unterprogramm erfolgt das Verschieben der Demons um 
einen Schritt bei jedem Durchlauf, eine zweifache Treffer- 
abfrage ($52A7 - $52AB bzw. $52B1 -$52B5) und Auswertung 
(ab $52DD). In der Auswertung geschieht das Zählen der 
Treffer, Einschalten der Ton- und Lautstärkespeicher, 
Löschen der Rakete, usw. 

Des weiteren werden die neuen Positionsdaten errechnet, an 
den Datenspeichern $5000 - $5024 übergeben und die 
Explosion dargestellt. 





EITTE WARTEH 


Iratais 
DATAlS1 
DATASS 


Li 
zu 


25,75:265.19,130 
‚14,2.1,8 ä 
13 162 .1E1 74.140, 128 
SS er 36,2 


yenksnm. I ı 


[rn il 


a4: FOKEI+ZS.FEEKCOZ+I):NERT 
=1 TOlL:READA:FORJ=8 TOr:READYT:POKEZSHEFHH+T ST NEHTINEHT 
E5E9,205 


K=3: FORL=20458 TO 29538: FOKEL.B:NEKT 

=) 5: om= VE+GK22 i 
GOSUBERAB: AK +1:22=22-10: IFZZC1LTHENZZ= 
IFAXZLSTHEN 
FORI=1 TO 

A: U=INTERNDELIKZEI: TSOMAVRZEHU: IF FEEKGISCISE THENESS 
1:FOKEJ.S 1.256: FOKEZO4FFHSFK ,93: 204F73+3#K 8 
»># FOKEZO4TT+3&K TV NEXTI:A £ 
2565: Y=CH-INTCH) #256: FOKEE, 191: FOKER .T : FOKER+1 8 POKER+3 N FOKER+ 


SET G#:IF G$=""THEN32O 

STSEOHDE 

FORI=S1TOZZ:NEXT:IF FEEKCE-13=93THENGOSUFFOBSE: GOTOFBSE 
FE=PEERC2E522>: IFPFEEKCSOSZEI=LZTHENFE AB=AN+LE 
FE=SFE+RAR:FRINT"'S"SPOCLOG>PE 

FOKESSS7S.0: FOKEIESTT 8 

IF FEEKLZESZEIF=LZ THENGOSUFSBGR: GOTOZ4E 

SOoTaz4E 

2 a 


4155 THENGOSUFZ30O8: GOTOZOZE 
4 SSOHDEN SSL NIEENEDSLn=Sag cuTde 
4lr 


GSOSUEZEAEE 
O4AF-41E4SNSUEF1EN ,3ZEI , 2308 ,3408,32588 1.1.1: 


‚EU: GOTIZAZE 


ÜKFERF .39: RETURH 
52" Mall üfTRISHT" 
52"85 .ERGDOHAT" 
5 "BT .EASDOHAT" 


“ 2: GOSUE4SEE: RETUFH 
a Eul=4:RETLUFH 


4:RETUFH 
RETUFH 

:RETUFH 
EU=1:FETUFRH 





FETUFH 
1:FETUFH 
FÜORT=15STOSSTEF-5 . 
FOk S7E.T:FOKE 
FETUFH 
FORENH=STO2ESS 
EH:FORI=S1TOZE:NEHTI:NEHT 
‚187: FRINHT"D":RETURH 
FRIHT"I' 
FRIHTTREXSP"RHHH 9” tt 
FEIHTTABESSHTIITOE + I I" 
FREINTTRELAH" u 
FRIHTTA ' 3 u 
FRIHTTA Du SFTEMOH ur 


FOKEGF+2E 9: ESF+34,21 
FORII=ST4TOS0 
FOKEGF+I 4 »539: NEXT :RETURH 


FOFEE-1.,52:FOKEE+1,82: FOKEB- E32: FORER+Z 24: FOKER-22,52:POKEE- 


FOKEE-21.34: FOKER-44 ,55: FOKER-56 ‚85: FOKER-: 5: 
FÜFEE-111.3 E-163 Be : DUNER- IE FE: FOÜKEE-1 
FOREF-124,52: FÜHEE- B 

FÜRL=15TOSSTEF- „ar: FOKES ! m ! R BETT .B:FÜK 
FETUFRH 


zala 
Ssaza FOREB 5 2 .EIERTT 208: FÜRF=1T018: NE#TF:FÜKESBSTT SE: NERT 
=3235 FETUFN 
FRIHNT" I": FOKES 
915 FEINT" MeBISSIE HABEN"FE 
aa28 FRINT"SDEMIHS AEGESCHOSSEN" 
>535 IFSH=1THENHI=FE 
IFSH=ZTHENH 
IFHL>HZTHEN 
IFHE>H1THENS 
IFHI=HZTHENH : 
FREINT"BEHISHSCORE : 
FREIHNT"ARHOCH EINMAL CIeHH?" 
2525 A$="" : 
a1aa GETAF: IFR$=""THENS1OS 
a11a E & "H"THENP1SG 
. "AQ=E: A :22=48: G0T0228 
FR INT" ZIEISDEMON ATTACKE" 
FRINT"BEHDE" 


‚3.233.0, 
‚165 ,1,141.37,39,3 

3.23 .,88,141.36 

DATAaS 37,201 ,27 249,1 ,3 

DATASE ‚1.169. 199 ‚145.0, ,16° 

DATA 

DATA1S: 

DATA2 = 145,2 ,18 

NATnsd ir. ae 5 Bee 

DATAZAE , : z 


DATA1 
15145 DATA 


15154 DATAES 1 
1gza5 FETUFH 





TANDY TRS-80 


für TRS 80 


Schiffe versenken 


Das Programm simuliert das altbekannte Schülerspiel ”Schiffe” versenken. Gespielt wird mit dem Computer als Gegner. Man muß 
versuchen die gegnerischen Schiffe zu versenken, die ein bis vier Kästchen lang sind. In der ersten Spielphase versucht der Computer die 
feindlichen Schiffe über zufällige Schüsse zu treffen. Nach einiger Zeit beginnt er methodisch die wahrscheinlichsten Aufenthaltsorte 
der Schiffe zu suchen. Wer die Pause zwischen den einzelnen Meldungen verkürzen will, kann in Zeile 110 und 120 die 


Verzögerungszeiten herabsetzen. 





Mau Mau 


für den TRS 80 


Mit diesem Programm können 1 bis 3 (und Computer) Spieler das Kartenspiel Mau 
Mau spielen. Es wird mit 32 Spielkarten gespielt. Jeder Teilnehmer erhält 5 Karten, 
die er, um zu gewinnen, im Laufe des Spieles ablegen muß. Hat man nur noch eine 
Karte auf der Hand, sagt man ”’mau”, wenn man fertig ist, ”mau-mau” an, daher der 


Name des Spieles. 


Die Karten werden im Kreis herum 
abgelegt. Man kann entweder eine 
Karte derselben Spielfarbe oder des- 
selben Spielwertes wie die aufliegende 
Karte ablegen. Hat man keine ent- 
sprechende Karte auf der Hand, muß 


man solange eine Karte vom Talon 
ziehen, bis man eine Karte ablegen 
kann. Es gibt einige Spezialregeln: Legt 
man eine Dame ab, wird der nächste 
Spieler übersprungen, bei einer 8 kann 
man noch eine Karte ablegen, bei einer 


7 muß der nächste zwei Karten ziehen. 
Einen Buben kann man auf jede Karte 
ablegen und eine neue Spielfarbe be- 
stimmen (die aktuelle Spielfarbe ist auf 
dem Bildschirm oben rechts abge- 
bildet). 





“It must be a nightmare’’ he 
screamed as he ran around the 
maze of floors, desperately 
elimbing ladders to different 
FIT ERTLENCH TE 
evade the monsters. 

He had only his neutron 
hammer to dig holes for the 
vile creatures to fall into, but 
even then he had to repeatediy 
hit them before they dropped 
to their deaths. As if that 
wasn’t bad enough, the oxygen 
supply was running out! 

"It's simply impossible” he 
wailed as the monsters advanced 


on all sides. . 
SPECIRUM 48K 
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108 
1108 
128 
130 
148 
158 
168 


178 
150 
198 


RUN1S8 

FORR=1T0888 : NEXTR : RETURN 

FORR=1T01488 : NEXTR : RETURN 

ELS:REM *SCHIFFE VERSENKEN* WON STEFRN SCHRAMM 

RANDOM 

FRINT: PRINT” SCHIFFE VERSENKEN 

FRINT: PRINT" IN DIESEM FROGRAMM KANNST DU EINE VERSION DES 
ALTBEKANNTEN SFIELS SCHIFFE-VERSENKEN SPIELEN. 

FRINT:FRINT"ES MUESSEN AUF EIN 19%#19 - BRETT FOLGENDE SCHIFFE GESETZT BEN 


FRINTTABS 16>"1 SCHLACHTSCHIFF (4 FELDER> 
FRINTTABS 16?"2 KREUZER «3 FELDER}":FRINTTABE 18>"3 ZERSTOERER S2F 


ELDER >" :FRINTTABC167"4 TORFEDO-BOOTE “1 FELD 3 


288 
218 


2208 
238 
240 
258 
268 
BR: 


PRINT: FRINT"DIE SCHIFFE DUERFEN NICHT ANEINANDERSTOSSEN! 
PRINT" 

"ENTER’ DRUECKEN” ; 
AF=INKET$ 
AS=1INKEY$: IFA$=""THENZ3BELSEIFRASCE AS DE >LSTHENZ3O 
CLERAR1 008 3 
DEFINTA-2:DIMCF@ 11,119, CWC 11,112, MF6 11,119, MWC11,119 
FORA=ATO11:FORE=BTNLISTEP11:CFCB,Ad=-1:CWEB, Ad=-1: MFC BE, Ad=-1: MW, Ade=1: NEXT 
FORA=OTOI11STEF11: :FORB=SATO11:CFCB, Adel: EYE, Ad=-1: MFC EL, AD=-1: MVB, Ad==1: NER 


T:NEXT 


278 
280 
zsea 
sacı 


ONERRORGOTD1748 

ELS 

GOSLB184@ 

PRINTRO, "50, JETZT MUSS DU ERST EINMAL DEINE SCHIFFE SETZEN. 


DU KANNST MIT DEN VIER PFEILTASTEN DEN BLOCK AUF DAS GEWLENSCHTEFELD BEWEGEN UND 
MIT ’S’ SETZEN, BZW. MIT ’R’ LOESCHEN. WENN DU FERTIG BIST. "ENTER’ DRUECKEHN." 


318 
328 
330 


CU=385:%=1:Y=l:AF=INKEYF 
FRINTRCU,CHREG 14395 
AF=1INKEY$: IFA$="" THEN3SBELSEA=ASCE AS I: IFA=13THENIFMFC KV D=BTHENHFRINTEGL, N." 


: GOTO3BSYELSEFRINTRCU, "%" 5: GOTOSSO 


340 


Y=ß:W=9: IFA=STHENV=-1ELSEIFA=STHENV=1ELSEIFA=31 THENM=-1ELSEIFA=1ATHENU=1ELSE 


IFRg="S" THENMFCK. YI=1:FRINTECH. "X" 5: GOTOSSGELSEIFAF="R" THENMFG 8, Ye: PRINTECH,". 
",:GOTOS3QELSEFSQ 


358 
362 
370 
388 
399 
408 
41a 
420 
438 
448 
458 
4608 
478 
430 
430 
See 
519 


IFMFS 4+'Y, Y+W=-1THEN339 

Bt=".": IFMFCRX,VD=1THENBE="R" 

FPRINTRCU, BF; : CU=CU+HVE3I+URE4 Key: Yay+hl: GOTOIZO 

REM SCHIFFE KORREKT GESETZT? 

PRINTR9, CHR$C 39 3: PRINT: PRINT 

S=2: FORA=1T019: FORB=1T018: IFMF@ A, B3=1THENS=S+1 

NEXTE,A: IFS<>ZOTHENFRINTE?@, "DIE ANZAHL DER SCHIFF I5T UNKORREKT!":GOTOS1BS 
FRINTBA.""; 

FORA=4TO1STEF-1:5=5-A 

FORC=1TO1@: FORD=1TN11-A 

IFMFÜC,DI<SPLTHENS3Q 

FORE=1TOA: IFMF@C,D-1+E3=1THENNEXTE : GOTO4FBELSED=D-1+E : GOTO530 
FÖRF=C-1TOC+1 : FORG=D-1TOD+ASTEPI-CF=CHKCAD 
IFMF£F,G?=1THEND=eD-1+E : GOTOSSQELSENEXTG.F 

$=5-1: IFS< >ATHEND=D-1+E : GIT0539 

NEATA 

FRINTE?TS, "ALLE SCHIFFE SIND RICHTIG GESETZT. 


JETZT WERDE ICH MEINE SETZEN. EIS GLEICH. ..." 


520 
558 
548 
558 
E12] 
578 
558 
598 
538 
soa 
518 
g28 
jela] 
&48 
558 
EEe 
era 


GATIEID 

HEATD,C:GOTISSQ 

FRINT®@?9, "DL HAST DIE SCHIFFE FALSCH GESETZT!" :GOTOS1R 

FORC=1T912: FORC=1TO11-A 

IFMFCC,DAC>ITHENSOR 

FORE=1TOA: IFMFSC-1+E. Dd=1THEHNNEXTE : GOTOSS@ELSEC=SE+L-1:GOTOEAA 
FORF=D-1T0D+1 : FORG=C-1TOC+HASTEF1-% F=D HA 

IFMF@G. F?P=1THENG=SE+C-1:GOTOSABELSENEKTG. F:5=$-1: IFS=ETHENSOBELSECSEHS-1:GOTO 


NEXTC,D: IFS=QTHENSBBELSES4B 

REM COMPUTER-SCHIFFE SETZEN 

A=4:E=1 

C=RND: 183: D=RNDE 19 3: Y=El: W=ERNDE 39-2: IFRNDE 4 ICSTHENYEh: ei 

IFABSC YD+ABSG WICDLTHENESE 

IFCFCC.D’=1THENGSEO 

IFA=1THENESE 

M=C: H=D: IFH=OTHENFORMSCHTOCH A-1D#VSTEPVELSEFORN=SD+UTOD+L. A-1 DHWSTEPH 





682 IFCFEM, NS=@THENIFU=STHENNEHTMELSENHEXTHELSES3R 

654 IFW=ÖTHEHFORE=D-1T06+1 : FORF=SC-VTOC+HAKYSTERE 1-C E=D dA DEVELSEFORE=SC-ITOCHL: 
F=D-UTID+AKWSTERG 1-7 EG DEKA DKL 

7a IFW=BTHENTEE 

rıa IFGFLE,F3=1THENGSBELSE?3B 

rz& IFLF£EF,E?=1THENGSEO 

738 NEXTF,E 

742 E=G:F=0: IFW=STHENFORE=SCTOGH A-1 KYSTEPVELSEFORF=DTOD+CA-1 IKUSTERU 

ra GFCE,F Del: IFWSETHENNEXTEELSENEXTF 

reg B=E+1: IFB<C6-A>THENSSBELSER=A-1: IFA>ETHENB=1 : GOTOS3QELSET?R 

ra GOSLUELTFE 

rea FRINT@E4, "OKAY, MEINE SCHWIMMEN JETZT AUCH! "CHREC39):PRINT"WER ÄNFRAENGT. 
TIMMT DIE MUENZE. KOPF ODER ZAHL”; 

738 INFUTA£: Ag=LEFTECAF.19: IFAF="K" THENA=1ELSEIFAS="Z" THENFA=ZELSEFSQ 

sad GOSLB1IE . 

518 FRINTBQ,""; !PRINT:PRINT: IFRNDX Z )=ATHENFS=1: FRINTRA, "DL HAST GEWONNEN UND KH 
NST BEGINNEN! "ELSEFSF=Q:PRINTEB. "TUT MIR LEID, ICH HABE GEWONNEN UND SCHIESSE ZUE 
RST!I" 

Ss2e GÜSUE119: CM=29: ME=29:MO=1 

S3g ÖNFS+1GOT0342.1158 

349 ONMOGOTOSSQ, 1200 

=5@ IFMEFL4THEN1758 

368 S=-1:FORA=1T019:E=9 

878 E=B+1: IFCYCA,EO<PATHENIFENGA,BIC>-1THENSTRELSEISBELSEO=B: T=8: GOTOSSA 

Sssa CeC+tl: IFEYEA.CI=OTHENSSE 

sa L=6-1:0=7B+H6 972: T=6-B+3-5GNC ABSCLWER-1,D 23 9-5GHCABSCCWCA+L.DIDD 

saa IFT£STHENSZBELSEIFT=STHENIFRND« 28 3% 14 THENSZQ 

F12 S=T:M=A:N=D 

320 B=G:GOT08S74 

939 PRINTESS, A; :NEXTA 

a4 FORA=1TO1IR:B=M 

>50 E=E+1: IFEWCB, ADS DBOTHENIFEHEB, A IK >-1THENSSBELSELDIBELSECSE: T=8: GOTOSSR 

SE CeG+l: IFCWEG, AD=BTHENSSO 

378 G=G-1: Det B+C 372: T=G-B+3-5GNC ABSC CWED, AI 299-SGHL ABSCCWCDIA+L 33 

ss IFT<STHENIDOBELSEIFT=STHENIFRNDG 29 3% L4THENLDAGELSESSE 

958 5=T:M=D:N=f 

1999 B=f: G0T09324 

1219 FRINTESS,A+19; :NEXTA 

1928 FRINTCHREC ZSICHRECSA):PRINT"ICH SCHIESSE AUF FELD "CHRELM+ES ICHREL 44H)" 
19329 GOSLB119: A=MFCM,M>: IFA=QBTHENPRINT"DAS GING INS WASSER!" :CWEM,Nd=1:PRINTBEI® 
+MK3+NKE4 "4" GOSUEL19:GOTO1159 

1948 IFCYCM.NDC>ZTHENME=ME-1 

1959 CYCM.HI=Z: FRIMT"--- GETROFFEH --- ";: GC=315+MK3+NES4: GOSUB153R : IFME=EITH 
ENFRINT"VERSENKT !111"5:GOTO1678 

1260 REM VERSENKT? 

1979 F=eM:B=H:l=-1:D=B 

1950 A=fl+C: B=B+b: IFMFCA,BI=1THENCSABSC CC): DeABSC DI: GOTOL1IA 

19320 A=M:B=N: IFC=-1THENC=1ELSEIFC=1THEND=-1 :C=BELSEIFD=-1THEND=1ELSEFRINT"VERSEN 
KT !"::GOSUB1439: MO=1: GOSUB119:GOTO114B 

119g GOTT12S8 

111@ A=M:B=H 

1122 A=f+C:B=B+D: IFMFCA,ED=1THENIFOWCA.BI=SZTHENILERELSEIISBELSEIFCHDIBTHENG=-C :D 
=-b:GOTOI11BELSEFRINT"VERSENKT 1": GOSUE143B: MO=1:5OSUB1IE:GOTOLIHR 

1138 IFMO=1 THENKI=M: T1=N:X2=-1:72=9: Z1=1:MO=ZELSEZISZ 

1149 GOTIS42 

1159 GOSUB119: FRIHTRS,CHREC 30): PRINT: PRINT:FRINTRS4. "WELCHES FELD 2.8. Cd) 7 


1162 GOSUE1639: I=ASCH Ar )-64: BeWALLRIGHTECAF, 1 HH 

1170 IFA LÖRA>LBORBE LORE>LBTHENPRINT"FALSCHE EINGABE 1": :GOTO11S2 

1159 CSCFERBIEMCREISCHZ: IFCSATHENFRIHT" UA SSER | 1"recgetWsFlel:Gotoiees 
b) 

1179 FL=2:0#="+":CM=CM-1:FRINT"AUA! GETROFFEN I": 00=3S524HAK3+EKE4: GOSUBLSSB: IF 
M=STHEHFRIHT" VERSENKT!" :GOSUB119:GOTOLETR 

1z20 REM WERSEHETT 

1218 F=-1:G=8 

1z2a D=ef:E=B a 
1239 D=D+F:E=E+G: IFCFCD,E )=1 THENFSABSSF 3: G=ABSCGIELSEIFF=-1THENF=1:5OTOLSSRELSEI 
FF=1THEHF=8:G=-1:GOTOIZ2YELSEIFG=-1THENG=1:GOTOLSZRELSERRIHT" VERSENKTI I" :GOSUBL 
SER: GOSLE11E:GOTOLESR 

1240 D= Ei 

1252 Del4+r: E=E+G: IFGFÜD.ED=1THENIFMYCD. ED=2THENLESRELSELSSRELSEIRF+GFATHEHF=-F GG 





=-G: GOTOIZ4MELSEFRINT" VERSENKT!N":GOSUBISES 

1228 FREINTESSE+HAFIHEREI:CH: 

1278 GNSUB128: CHFLEOTOSAA, 115 

1229 IFZ1I=2THEN13SG 

1292 A=-1:B=0:5=-1 

1399 CeX1:Dey1:T=d 

1318 C=G+A:D=b+B: IFCWEC,DI=SATHENT=T+1:GOTO1319ELSEIFTFSTHEHSST: HER: Vz=b 

1328 IFA=-1THENA=1ELSEIFA=1THENB=-1:A=2: ELSEIFE=-1THENBSIELSELS4R 

1339 GOTO1308 

1349 M=X1+82:N=Y1l+Y2:GOT01928 

1359 5=-1:A=AB5t 823: B=eABSr Y2 >? 

1369 Cek1:b=Y1:T=O 

1379 C=C+A:D=D+B: IFCYEO, DI=2THENL3FBELSEIFOVE CO. DI=BTHENT=T+1:GOTOLSTRELSEISSR 
1399 IFT>STHENR=A+HB:S=T 

1399 IFA+E>BATHENF=-A: B=-E: GOTO1S6O 

142 IFR>BTHENKZ=SABSC AD: VZ=ABSL BYELSERZ=S-ABSE AD: VES-ABSCB > 

1410 C=k1:D=Y1 : 

1420 Ceb+nz: DeD+Yz: IFCYEG,DI=BTHENM=C : N=D: GOTO1IGSGELSE14ER 

1439 A=-1:E=8 

1448 C=:D=eH j 

1452 C=C+A:b=b+E: IFMF£C.D3=1THEN1478ELSEIFA=-1THENA=LELSEIFA=ITHENB=-1 : A=SELSEIF 
E=-1THENB=1ELSE1478 

1462 GOTO1448 

1479 G=M:D=N 

1438 G=C+A:D=D+B: IFMFCC.D3=1THEN1438ELSEC=SÖC-A:D=b-B 

14529 FORE=-1TO1:FORF=-ITO1: IFCYEC+E, D+F 3=9THENCWE CHE. DAF del: FRINTBSIS+LCHE DES+CD 
+F>kE4, "#5 

15929 NEKTF,E:C=C-A:D=D-E: IFMFCC,D’=1THEN1432 

1512 RETURN 

1320 De-1:E=8 

1539 F=A:G=E 

1540 F=F+D:G=G+E: IFCFCF,G?=1THENLSSAELSEIFD= -1THEND=1ELSEIFD= 1THENE=-1:D=BELSEIF 
E=-1THENE=1ELSE1IGE 

1559 GOTN15SA 

1569 F=ef:G=E 

1579 F=F+D:G6=G+E: IFCEFÜF,G>=1THEN1S?BELSEF=F-D: G=G5-E 

15520 FORY=-1T01: FORW=S-1TN1: IFMYCF+HW, GHUD=ATHENMWG FHNW G+lld=1: FRINTESSEHL FAN DKIHEG 
+ ars4 "WM"; 

1539 NEKXTU,Y 

1e0a F=F-D:G5=G-E: IFCFCF,GI=1LTHEN153@ 

16812 RETURN 

162@ REM BLINKEN 

1630 FORR=1T07: PRINTECG. "X" 5 : FORT=1TO7E: NEXTT:FRINTECG, "+" 5: FORT=S1TOFO:NEKTTIR:F 
RINTB1S8.""; RETURN 

1642 REM TASTATUR - ABFRAGE 

1659 At="":R$=INKEYE 

1660 R$=INKEY£: IFRE=""THENLSSBELSEIFASCE R& D=13THENFRINTCHRECS}:RETURNELSEIFASGER 
£ 3347 THENFRIHTCHREC SIRECHREC IS N AFSAFHRE : GOTOLSERELSEIFASCE R$ =8THENIFLENG Af )=2 
THEN1SSBELSEPRINTCHREC S PCHRSCSPCHREL IS 25  AF=LEFTFLAF , LENZ AE )-1 9: GOTO1LSSRELSELSSE 
1672 FRINTR2. CHREC 393: PRINT:FRINT:PRINTRB, "DAS SPIEL IST UM tr 

1652 IFCM=8THEHFRINT"DU HAST MEINE GANZE FLOTTE VERSENKTIN":GOTOLFTSA 

1699 PRINT"WICTORIA, ICH HABE DEINE SCHIFFE VERS ENKT! 

170g FRINT"ZUM TROST ZEIGE ICH DIR DIE RESTLICHEN YERSTECKE Ex> 1" 

17190 FORA=1TO19: FORB=1TO1M: IFCFCA,BD=LANDMYCA, BISRTHENFORR=1TOE: FORT=1T0S9 ::NEHTT 
:FRINTR3SZ+HLAKZDHERE4," "5: FORTS1 TOM: NERTT:PRINTRIIEH RK DHERSH, "K" 5  NEKTR 

17Zz2 HEXTE.F 

1739 FRINTRLPZ,""5:IMPFUT"NOCH EIN SPIEL"SA#: IFLEFTECASF, 1 de" 1" THEHRUHESAELSEIFLEF 
TEC A, 1 9="N"THENENDELSE173Q 

1748 IFERL=728THENRESUMESSEGELSEIFERL=61@THENRESUMESSRBELSEONERRORGÖTOR 

1759 M=RNGE 193: H=RNDE 199: IFCVCM,NI=ATHENIRZB 

17e9 GOTC175@ 

177@ F9=1:FRINTEEFT, "COMPUTER-SCHIFFE": :REM ANZEIGE VWERSUCHSFELD 

17328 FRIHTB3ZDB+FOBHS4," A BE CD EF GH I 

17392 FORF=414TT1AGASTERE4: PRINTE@A. INTLOA-414 3764 95 :NEHT 

1322 FORR=1TO19: FORE=1T019: IFFO=SRTHENG=MFE A, BYELSECSRGER 

1518 IFC=ATHENAF="."ELSEAF="" 

1222 PRINTE31S+ARE4+BKIHFARI4, AR 5 

12339 HEXT: NEXT: RETURN 

1540 FO=A: FRINTBZE3, "SPIELER-SCHIFFE" 5 :REM ANZEIGE SETZ-FELD 

18520 GOTO1L7SA 





18& REM %MAU-MAUX VON STEFAN SCHRAMM 

11a CLEARIGOGO 

129 DATACARD.HERZ.PIKSKREUZ," 7"," Br," gr," 1g"," BUBE"." DAME"S"KOENG"," AS 
130 DEFINTR-Z 

142 CLS:PRINT:FRINT:FRINTTABS 287" MAU - MAL 

159 FRINT:PRINT: INPUT"WIEVWIELE SPIELER" N: IFN< >1LANDN< JERHDNZSSTHENFRINT"ES SIND 
NUR 1-3 MITSFIELER MOEGLICH!" :GOTO1SS 

180 DIMKN,S@,5TC32> 

17a DIMMECS >). MAC za), MPCZa) 

158 DIMTAC32):TP=Q 

198 DIMNSCND 

zag FORA=1T04:READUF$C A): NEXT: FORA=1TOS: READUNSCAI:NEXT 

zig GOSUBIArE 

22a PRINT: FORA=1TON:FRINT"NAME WON SPIELER"As : INPUTNSCAD: NEXT 

239 CLS:PRINT:FRINT"NUN GUT, "; : FORA=1TON-1:PRINTNSCAY" "3 :NEXT: IFN>LTHENPRINT"L 
ND "HECH> 

€4& IFN=1THENTR=BELSEPRINT : INFUT"SOLL ICH MITSFIELEN" SA: IFLEFTSCA$, 1)="J"THENTR 

=RELSEIFLEFTFCAF,12="N", TR=1ELSE249 

258 FRINT:FRINT"SFEZIALREGELN: "PRINT"? - ZWEI KARTEN ZIEHEN" :PRINT"E - FARBE UA 
EHLEN" :FRINT"D - NAECHSTER SPIELER WIRD UEBERSPRUNGEN" :PRINT"S - NOCH EINE KARTE 
ABLEGEN" : PRINT: INFUT"ENTER DRUECKEN" ; 

26a CLS:RANDOM:FRINT" AUGENBLICK, ICH MISCHE NOCH „.." 

278 IZ=12+1:G0SUB29B: GOTO322 

280 12=1Z+1 

298 FORA=1T04:FORB=1T08: CA=AX10+B 

3249 AD=RND« 323: IFSTE AD I< >OTHENSOBELSEST“ AD )=CA:NEXTBSA 

s1@ RETURH 

328 PRINT"SO, JETZT VERTEILE ICH DIE KARTEN" 

330 FÜRG=1TO1AAG: NEXT 

s40 FI=32 

359 FORA=1T05:FORB=TRTON:KCB,9)=5 

368 KLE,AI=STLFO):PO=PQO-1:NEXTB>A 

379 TP=1:TAC19=STCPN)I:FO=PD-1 

388 MF=INTETAL12712) 

3928 CLS 

4029 BE=RNDEN+1 3-1: NFC AI="TRS-S0" 

418 FRINTBQ,"ES BEGINNT "NECBE>; 

422 FORAA=1TO1QAA: NEXT 

430 IFBE=8THEN?S2 

442 IFTACTFD-INTE TACTPI/1Q IKLA=STHENA4SQELSEMF=INTCTACTPIF1RH 

450 GOSUE1128:FRINTRIAB,NFLBE)::PRINTRIG4.""; 

468 8=TACTP’:KI=INTER/LOIKIA:KZEH-KL:KI=MFHIO 

47a IFF?<POTHENF?F=F?-1:GOTOSQG 

459 FORA=1TOKCBE,9):K3=KCBE,AD: IF INTCK3/18 IK 1Q=K1 HORC K3-INTE KB 1R IELDSKE IORK. K3- 
INT“ #3719 >#419=5 )THENKS=R : GOTOS4QWELSENEKTA 

43@ IFKS=1THENKS=R:GOTO7ER 

588 IFBE<>@,FRINT"DLU MUSST ZIEHEN" :ELSEPRINT"ICH MUSS ZIEHEN": 

5129 FORGA=1TOSQR: NEHT 

Sza IFFO=@STHENGOSLUBLISE 

Ss KCBE. M)=Ki BE. M)+1:KCBE,KC BE, 9))=STCPD I: FO=FO-1:GOT0442 

542 IFBE=OTHENS@GELSEPRINTEIS4: "WELCHE KARTE "; 

550 AF=INKEYE:DE="" 

S6d AF=INKEYF: IFA$=""THENSSE 

S7@ IFAF>="D" ANDAF<="9" THENDS=DE+AS :PRINTAS: : GOTOSERELSEIFASCH AF 3X >LSTHENSSO 
5Ed ZENALLDE) 

539 IFZ<LORZEPINTEZIORZIKX BE. BITHENPRINTEIFE, " "::GOTOSAR 

699 KK=Kt BE,ZI:IFINTCHKALAIKLOSHIORKHK-INTERK/19 IK LOSKZURKK- INT NK/1M IKLO=STHENGI 
BELSEFRINTRISER. "FALSCHE KARTE! "so FORAGO=1TO1GEA: NEXT:FRINTBIER, " 

"3: PRINTB164,"" 5: GOT0S 

s19 TF=TF+1: TACTF’=HK 

EIFZIMTHENGSRELSER 

S2Q FÜRA=Z+LTOM+L:KCBE,A-1 =Kt BE,AII:HERT 

639 M=AK-INTERKALADELE: IFM=1THENFF=2: GOTO76EA 

540 IFM<SETHENGSR 

E58 Kö=l 

GEB GOTOA4M 

672 AF=1INKENS: IFAF=""THENEFOELSEPRINT" "A; 

sSR IFAF="H"THENTERELSEIFAF=" J" THEN44BELSESTA 

E30 IFM<>STHEN?4R 

rag IFBE< >98, PRINTRIER, "WELCHE FARBE ";ELSEMF=GB: PRINTE1EA. DEF; : GOTO7ER 

ie A£=IHKErE 

rz@ AF=INKEYE: IFAS=""THENTZGELSEIFAF="C" THENMF=1ELSEIFRE="H"THENNMFSZELSEIFAS="P" 
„MF=3ELSEIFAF="K".M 5 u 

732 FRINT" ";WF£CMF 35: FORG=1 TO3: NEXTG:GOTOTER 

748 IFM<>ETHENFEE 





758 BE=BE+1: IFBE>NTHENBE=TR 

rest BE=BE+1: IFBE>N,BE=B 

ra GNTO4ZER 

758 IFTR=1,BE=BE+1:G0T0448 

729 GOTO44 

sag META )=R: MHLQ)=9:M=Kl 9,9): FORA=LTOM 

819 IFKCB,AD-INTCKC9,A2719 3%19=STHENMBC 9 )=MBX 9 )+1: MBCMBC BY ISA: GOTNSSR 

sz@ IFC INTCKCB,AD/1RIK1O=K1IORCKCA,AI-INTCKCD,AI/1O DKLD=KZ ITHENMNC A D=MNC +1 : MHC 
MNE > 2=A 

S3@ HEXTA 

342 FORA=BTNZR : MFCAD=B: NEXT 

858 IFMNCO)=RTHENSSE 

868 FORA=1TOMNC@):PI=INTCKCO,AD/IOIKLA:PZ=KC@,AD-Pi: IFP2=1THENMPCA)=8 

S78 IFPZ=2THENMPCAY=7 

359 IFF2=6THENMFCA)=4: IFN=1 THENMPCAY=S 

898 FORB=1TOK< 9,93: IFINTCKC@,BI/1OIKLO=PLTHENMPS AI=MPCR +2: IFKCA,AIL>KCO,EIIFP2= 
ZORFZ=STHENMRC A Y=SMPCAD+Z 

>08 IFKC@,F)=Ki 9, BITHENSFZR 

18 IFKCB,EI-INTCKCO,EI/19 IK LA=PZTHENMPCAD=MPCAY+L: IFPZ=2ZORFZ=6THENNFX Ad=MPCA)+3 
222 NEXTB,R 

9239 S=-1: FORA=1TOMN(B): IFMPCAD>STHENS=MPCA): ‚SP= MNCA> 

949 NEXT 

9528 Z=5P : GOTOSSQ 

68 FORFI=1TND4:FORBS1TOKL9,M 2: IFINTCKCR, BI/LBI<DATHENIE 

78 PZ=K(9,B>-INTCKCB,B)/1O)%1O 

920 IFKCA,ED-INTCKCQ,BI/1A)KLA=STHENIG2Q 

338 MFC AI=MPCA)+Z 

109@ IFFZ=1THENMPCA)I=MFCAI+Z 

1219 IFPZ=6ORFZ=ZTHENMPCAY=SMFOAY+1 

1928 NEXTB,A 

1939 Z=MEC1) 

1942 SP=-1:FORA=1T04: IFMPXA)>SPTHENSF=MPCAD:GB=A 

1259 NEXT: ABF=UFFCAE) 

1262 GOTOSFQ 

1979 KEESCHREC1F1 IH" "+CHREG 191 I+CHREC 26 I+STRINGEL 7,89: KAF=CHREC 191 I+STRINGSE 
ES, LFI IFCHREC LF1 DHCHREC 26 IHSTRINGSK 7, 8 I4++KOS+KCHHCHREC 191 IHSTRINGECS, 176 IH HRS 1 
31) 

1989 KBF=KAf: FORA=1TOLENC KA): IFASCKMIDSCKAS,A, 1 DI>26ETHENKC=191 : KBS=LEFTECKBS,A- 
1 +CHRE$% KCI+RIGHTEC KB$ , LENCKASI-A) 

1939 NEXT: RETURN 

1129 FRINTB334,"TALON ABLAGE" ; 

1118 PRINTB78,KB$; :X=TAC TP):PRINTRSS,KA$; :PRINTB153. WF$X INTCK1A DS :FRINTREIT UM 
$CK-INTCK/1DIK19 25 :PRINTB144, USING" ##" ; PO; :RETURN 

1120 CLS:GOSUE1198:%=512-128: PRINTBSE, UFSCMF I; : PRINTBS4, CHR$C 191 ICHRSL 26 ICHRELS) 
STRINGEL 1M, 13195 

1128 FORA=OTON: IFKCR,@)=1THENFRINTRSA+HRFRS4,NSCAY" MAL"; 

1140 HEXT 

1159 IFBE=STHEHRETURHN 

1160 FORA=1TOK(BE.9): PRINTRX+128, "" ; :FRINTUSING"##" A : PRINT": "; :PRINTBX+4.KAS; 
: B=ki BE» AD: PRINTBX+6S. WF&C INTCB/19) 95: PRINTRX+133, UWSCB-INTCBALRIELE DE KeK+ 1 I: IF 

C$ANDESD>S4THENIFH<SABTHENK=S?SELSEX=7ESELSE11TA 

11721 HEKT: RETURN 

1159 FRINTRA, "AUGENELICK, ICH MUSS MISCHEN" ; :FORA=1T032:5TCA)=B: NEXT :GOSUELSIO:F 
ERA=1TO3E: IFSTEAIDCDTAC TR DTHENNEKTA :RETURNELSESTEAI=STE 32: PO=31: TAC1ISTACTF 9: TP= 
1: RETURN 

117@ PRINTRB,NFCEE>" HAT GEWONNEN" 5 :PRINTBS4+BEXS4.NECBE)" MAUMAU" ; 

120g FÜRA=1TOIAER:NEHT 

1210 IOCBEI=IMBE +1 

1220 CLS:FRINT"STAND NACH" IZ"SPIELEN: 

12329 FORA=ATON: PRIHTNEAY, INCAD: NEXT 

1242 PRINT: INFUT"NOCH EIN SPIEL" SA$: IFLEFTSCAS. 1 3=" 1" THENFORA=1TO32:STCA)=B: NEXT 
:GOTDZSRELSEIFLEFTECAF. 1 CH" N" THENIZ24R 

1239 S=2: FORA=SATCH: IFIMCAY>S,S=INCA) 

1250 NEXT 

1272 S2=1:FORA=1TON: IFIRCA)=S. NAL SE Je: S2=S2+1 

1288 NEXT: IFSZ=1THENPRINTNECHZC1YY" IST SIEGER!" SELSEFORA=1TNS2-1:PRINTNECHECAYD 
", "3: NEKTA:PRINTCHRECSICHRELSH" UND "NECHZCASY" HABEN GEKMONNENT" 

1239 FORM=1TN20: FORA=1TOSZ:PRINTRNEL A YKS4+54, STRINGEL LEN NSCNZCAYIS." "DE: NEKTAG 
FORG=1TT199: NEXT: FORA=1T0S2 : FRIHTRHEK FI DK64+54. NSCHZLAND: :NEKTA:FORG=1TOLAR:HERTG 
‚M 

1398 FRIHTESZA,"ETE. BYE": FORA=1TOZOBR:NEKT:END 

1319 FO=TP-1 

1329 FORA=1TOPO 

1339 C=RHbCPDD: IFSTEC IC HATHEHIZFA 


1249 STCC9=TACAD:NEXT:TAC A I=STALTP I: TP=1: RETURN 





KLEINANZEIGEN 


V6-20 25  Maschspr.-Spiele-HGR(3,5) 
wirklich gut + Beschreibung DM 15,- 
R. Czesany-Sandg. 23, A-8010 Graz 


Appie Software - die neusten Pro- 
gramme, St. Kursawe, Tel.:02103/47033 


VC-20 Software 30 Modulprogramme 

nur 50 DM, Liste gegen Rückporto 

P. Meisinger, Am Kreuzgraben 21 
6603 Sulzbach 


Verk. Programme für fast alle Com- 
puter! Liste gegen Freiumschlag!! 
$, Decker, Rosstr. 15, 4156 Willich 3 


Mur die VC-20 Grundversion 277? 
Trotzdem Flugsimulato, Pac-Man, 
3D-Games, Crazy-Kong, Defender, 
Frogger, Scramble.... Maschinen- 
sprache! 2- DM pro Spiel! Info 
gegen 80 Pfennig bei A. Gauger, Josef- 
Stöhrer-Weg 13, 7505 Ettlingen 
Tausche auch Modulel! Neu, Neu: 
Der VC-Modulclub: Info geg. 80 Pf. 





Die 
Welt für 


besten Programme aus aller 
den WE-20 !!! Kostenlose 
Liste anfordern bei: 

Kai Schillak, Preetzer Straße 209 
23 Kiel 14 @ über 500 Programme! 


TI 98/4A TOPSOFT in TI und Ext. 
Basic - Hits in TI Basic: 

Black Jack DM 19,-, Pattern DM 12,- 
Reverse DM 12,-, Hits in Ext. Basic 
Flugsimulator DM 24,- 
Wumpus DM 19,-, Mastermind für F. usw. 
DM 16,- uva. 

Bestellung per NN bei: 
Q-Computing, R. Quadri, Irchelstr. 1a 
8057 Zürich, Schweiz 


ZA 81 kostenloses Programminfo: 
R. Peter, Moltkestr. 8, 6440 Bebra 
Spiele: Mafiaboss, Dagobert, Spiel- 
automat, Horoskope... Kalkulation, 


Börse, Break-Even-Analysen. Frankierten 
Freiumschlag beifügen. 





VC 20 (3 u. 5K) Unkostenbeitrag je 
Programm DM 1,-, Telefon: 0641/42785 


®© © © Specsolt-Vorsnd © © © © 
© Cosmic Raiders 

@ Mad Martha 

@ Space Zombies 

© Panic 

® Master Chess 48K 

® Extend Spectrum Basic 
© The Black Hole 

® Scramble 





32,- @ 
® Info 0,80 DM, Best. Vorkasse @ 
© Klug, Goebenstr. 18, 4000 D-dorf 





Hallo ZX$pectram-User, ich ver- 
kaufe meine 48K-Superprogramme: 
Transylvanian Tower @ Mad Martha 
Spawn of Evil @ Swordfight ® 
Cosmic de bris @ Derby Day ® 
Superchess Il @ Crazy Kong ® 
Black Planet @ Jet Pac @ Tobor ® 
Jede Kassette DM 20,-, Vorkasse oder 
per Nachnahme (+ DM 3,-) von 
6. Amrhein, Eisenstr. 22, 5600 Wupper- 
tal 22 





58 Homecomputer 





@VC 84 @ Superprgm. @ Info Gratis® 
R. Müller, Reiherw. 8, 3004, Sernhag. 


CBM-64 Seftwarel Adreßverwaltung 
Textverarbeitung, Datei, Spiele uva. 
Ausführlicher Katalog gegen 1,- DM 
Scholz, Kaiserstr. 35 B, 5000 Köln 90 


VC-20 Software, 15 GV Spiele u.a. 
Hopper, 20 DM, Infos 1 DM bei D. 
Vödisch, Ulmenstr. 23, 2313 Raisdorf 


@ TI 99 Cosmic Zap und Monstercrash 
@ auf 1 Kass. Eröffnungspreis: 20,- DM 
Kingsoft, Außenl. 5, 6382 Friedrichsd. 


ZX 81-Hits: Scramble, Invaders 10 
HRG (192x253) nur 15 DM, Gr. Info bei: 
Engstler, Dinghoferstr. 10 A 4020 Linz 





© An alle TI 90/4A Besitzeri © @® 
Ufo-Spiel-Programm mit Listing 
und Beschreibung, Jede Zeile 
ist genau erklärt. Ideal für 
Einsteiger und solche, die den 
Programmablauf verstehen wollen 
© Kassette DM 27,- @ 
Walter Pöppel, Böhmerwaldstr. 8 
@ 8401 Hagelstadt @ 


.v.e.saeu„—.—.,—..c 
2X 81-16K - Supersplelcassette @ 
Börse (MC) + Luftkampf (MC) + @® 
Inkasch.‚Breako.Europanur30D’M @ 
Per NN. W. Zimmermann, Fischb.- @ 
Str. 5, 6380 Bad Homburg, 36634 @ 
.soese.„—s„„„—.,..,.—.,.0 






o.o.®o Eu 000 
SUPER | Neueste Spitzensoftware 
Top-Spiele etc. - Info gegen 80 Pf. 
die sich lohnen: Helmut Sterdt, 
Catharinenstr. 6a, 2200 Elmshorn 


Schweiz CBM-64-Spiele und Hilfs- 
programme, Tausch oder Unkosten- 
beitrag, Liste gegen Fr. 1,60 in 
Briefmarken bei D. Winterberg 
Altbachstr. 12, Ch-8305 Dietlikon 





.e.o..cm“eoe.oeo 
@ Prg. ab 3 DM!! auch Arcadespiele @ 
®@ Info gegen 80 Pf. bei: Christian @ 
@ Paas, Nordring54, 4630Bochum 1 @ 


Günstig - Neue CBM 64 Programme 
Info gegen Freiumschlag von 
J. Sprejz, Martinstr. 25, 6100 DA 


Computerfans in Österreich 
aufgepaßt: Wer die neuesten 
Spiele für seinen Heimcomputer 
will, schreibt an: Martin Knespel, 

Albertgasse 39/17 
A-1080 Wien 


ZDX-Specttum und ZX-8I Software 
Gratispgr. + Liste an M. Holzmann, 
Postfach 401, 4250 Bottrop 





644  Top-Software gegen Selbst- 
kosten oder im Tausch abzugeben 
Telefon: 0761/34172 


T199/4A: Supersplele in Ex-Basic 
Action, Spannung, Spaß! Top Grafik! 
Von Frogger bis Defender! Ab 5 DM. 
Ausführlich Info (Rückp.), B. Walter, 
Pfortengartenweg 57, 6230 Ffm. 80 


6-20: Softwaretausch und Verkauf 
Xanon, E.T. usw. bei 040/457636 














© CBM64 © VC 20 © Dliı 
u. Software @ Info u. Preisliste gegen 
Freiumsch. @ U. Vierhaus, 4353 O.-E. 
Knappenstr. 27, Tel:02368/55994 @@ 








CM64 Software zu kleinen 
sen, (Spiele 8,- DM) 
42 Oberhausen 1, Mohlstraße 27 


TI-99 Seftw.! Inte gg. 80 Pf. hei C. 
Schmidt, Auerhacherstr. 31, 85 Nbg. 30 


o.o.o.o.XUsecno oo 
Jede Menge Programme aller Art 
für Sinclairs Spectrum. 
Kostenloses Info bei: Fr. Neuper, 
Leuchtenbergerst Str. 1, 8473 Pfreimd. 
Karte genügt 


vc20 s Spitzen- 
spiele. Gratis Information bei 
A Schladitz, Pillnitzer Weg 33A 
1000 Berlin 20, ® @ sehr günstig @ @ 














Riesenauswahl und Niedrigstpreise 
für Software TIHOB/4A + CBM 64 
Info gg. DM 1,-: CSV Riegert, 7324 
Rechberghausen, Schloßhofstraße 5 


ZX 81 / 16K & SPECTRUM 48K MC-Soft- 

ware: Textverschlüsselung, 30 DM 

MORSE-Decoder mit Schaltbild für 

Funkinterface 30 DM*per Nachnahme 

KEMPAS, Postfach 55 05 63 
2000 Hamburg 55 








©®® APPLE Il @@ APPLE II ®© 

© SOFTWARE-WEIHNACHTSANGEBOT 
© Programme aller Arten ab 
© DM 3- @® Diverse Dienst- @ 
® leistungen: Übersetzungen @ - 
© von Handbüchern, Compilieren @® 

® u. Optimieren von Programmen @ 

©® Gratisinio @@ Dominik Sack @@ 

© Garthestraße 12 5 Köln 60 









Katalog 11/83 (über 50 Seiten) 
Light-Pen für VC-20 

NEU: Echte 3D-Spiele mit Stereo- 
Brille für VC-20, CBM 64 und Spectrum. 
MEU: Noch mehr Bücher und Hardware 
und natürlich auch Software für 
Spectrum, ZX-81, VC-20, CBM 64, Dragon 
und jetzt auch ORIC 1. Katalog ge- 
gen 1,80 DM in Briefmarken, T. Wagner, 
Softwareversand, Postfach 112243 
D-8900 Augsburg 





SPITZENSOFTWARE für TI-00/4A 
zB. ADRESSENVERWALTUNG 5,- DM 


AUTORENNEN in 3D 5- DM 
Auch Programme in Ext. Basic 
Wahnsinnsgraphik und Sound 
Info mit Gratisprogramm. Gegen . 
2- DM, bei Stefan Verhaaren, 
Ripshorster 309, oder Oliver 
Brandt, Grävenweg 19, 43 Essen 
ZX-SPECTRUM 16/48K: SUPER-MUNSHER, 





BLITZ, 3D-MAZE. 3 Super-Actionprogram. 
mit irrer Grafik + Sound! Cass. 10,- DM! 
64 ZEICHEN pro ZEILE auf d. Bild- 
schirm sichtbar! Voller ASCliCode 
+ dtsch. Umlaute. Super! Cass. 10 DM! 
incl. Porto. Info 0,50 DM, 0. Stumpp, 
Weingartenweg 13, 6951 Schefflenz 


ZX Spectrum - ORIC 1 
Software und Literatur 





mputer 
Westring 32, 6086 Riedstadt 








Über 155 VC-20 Programme ® ® 
Info: 99 Pf. bei J. Güttel @ @® 


oo 
oo 
® ® Kölnerstr. 99, 5650 Solingen @ ® 





Biete an Hardware 


@ Preiswerter Graphik-Zusatz ZX 81 
© paßt in ZX-Gehäuse, hochauflös. 
® über frei progr. Zeichengenerator 
© bis 512 versch. Zeichen ab DM 55,- 
® u. Software, Info D. Luda, Staudinger- 
@ str.65,8 München 83,Tel:0896708355 


TI-89/4A u. Ext-Basic u. Rec. Kabel 
u. Joysticks u. Literatur u. Super- 
Software für nur @@ 660,- DM @@® 
tel.: 02683/43717 ab 17.00 Uhr 


COMMODORE VC 64 
Incl. Netzgerät, Fernsehverbin- 
dungskabel und Bedienungsanleitung. 
Erragen Sie unseren äußerst 
günstigen Preis. Auch Peripherie- 
Geräte zu günstigen Preisen. 
Elektro Bodem, 4420 Coesfeld, 
Am Markt 


ZX 81 + 64K + Tastatur + Hochauf- 
lösende Graphik + Profi-Drucker 
Seikosha GP 100 A mit Interface 
+ Bücher u. Programme, Neupreis 
über DM 2000,-, 7 Monate alt, nur 
DM 1200,-. Telefon: 02203/26187 


SHARP MZ 80K 48K, viel Software 
zus. 1000,-, König, Tel.: 07159/6779 


Verkaufe TI 89/4A + Ext. Basic + Parsec 
+ Invaders (Module) + viele Programme 
(z.B. Frogger) + Handbücher + Rec. Kab. 
VB 600,-, Tel.: 0817/10875 ab 18.00 Uhr 


46-84 + Joystick + Softw. 3 Mon. noch 
Garantie 580,- DM, Axel Roesemeier, 
Scheumann, Eisenbahnstraße 11, 3060 
Stadthagen, Telefon: 05721/4772 


Cassetten C 20 =2X10 MIN. 
mit Box und neutralen Aufklebern 
im 10er Pack. inklusive Porto 
DM 23,-. Nur Vorauskasse, Postscheckk. 
Essen, 185355-431 oder V-Scheck 
F.P. Doerr, 6251 Burg Balduinstein 





VC-20 + 64K + 2 Bücher + Programme 
für 600,- DM (Neuw.: 800,-DM) zu verk. 
Telefon: 05811/573114 


Fark-Meniter, RGB, 360, gebr. ohne 


‚ Gehäuse, + Trenntrafo+NT-5V+5V-+12V 


390,-, sowie Comp-Pl. (Phönix, Pucman) 
u.a) 100,- oder Tausch Mon + Phönix 
gegen Comm. Floppy oder Druckerl!! 
Anruf Lohnt! 040/2298992 ab 18.00 Uhr 


Verkaufe neuwert. Profi-System 

Olivetti M20 mit Disk und Monitor 

DM 4498,- + Mwst. Auf Wunsch auch 
Drucker und Software 

Tel: 0911/835311 nach 19.00 Uhr. 

Verkaufe Cass.-Recorder speziell f. ZX 81 

für 80,- DM, Tel.: 0208/404827 


Systemwechsel @ Verkaufe komplett @ 
Agpleanlage mit viel Software ® 
auch einzeln abzugeben ® 
ab 17.00 Uhr unter 06184/7761 











System 19 (Speichererw., IEECBUS, Mo- 
dulerw.,80 Zeich. Karte) DM 1200,-,J.Finck 
43 Essen-K, Nahestr. 6, 02054/6704 


VC-20 + 16K + 3K-Programmierhilfen 
+ Datasette +Modulb. VC 1020+Softw. 
850,- DM, Wissner, Herne 1,Tel.:02323/45 
732 ab 16 Uhr, evtl. auch einzeln. 


ZA81, WVC-20 Zubehör-Selbstbau-Plan 
Plat. Beschr. 2X 81: 16K Einbau 
27,- Aufsteck. 39,-, 64K 53,-, PIO 
30,-, Sound-Box 30,-, VC-20: 8K 15,-, 
16K 27,-, 24K 41,-, 32K 51,-, Info 
Rückumschlag, Baltes, Nordring 60 
6620 Völklingen 


Verkaufe W620 + Datasette + 
16K Speichererweiterung + Hand- 
bücher für DM 650,-, Tel.: 06232/42221 


VC-20 billig abzugeben, Tel: 08261/ 
1226 


ZX-81 + 16K + 2 Bücher + viel Softw. 
200,- DM. Telefon: 07733/5361 


© Epson AX1028 @RXF/TI108 @FX1568 
FA100 1998 @ Tel.: 0611413817, ab 10h 


Feraschr. Siem T100 m. Lochstr.-Les. 
u. Stanz. mit Bauanl. f. Interf. f. ZX 81 
VHB 400,-, Meier, Tel.: 05254/5772 


NEU vom VC-EXPERTEN 
1.@®@ BAMOD @ @ Ihr Basic- oder MSP 
prg. in einem Steckmodul DM 49,- 
2.@@ DVM @ @ Digitalvoltmeter autom. 
Bereichswahl incl. Software K/D/M 
ab DM 120,-, Blümler, Lindeng. 14 
6361 Reichelsheim 2, Tel: 06035/7291 





© VC 64 + Spectrum + Zubehör! @ 
® Bitte Tagestiefstpreise anfragen. ® 
® Es lohnt sich. Tel: 09126/7419 @ 


© ZI Spectrum, Erw. auf 48K, 89,-DM @ 
@ + Porto + NN. H. Meyer, Rahsenstr. @ 
@58,4060 Viersen 1,Tel.02162/22964@ 


ORIC 1 48K 598,- DM 
Oric Farbdrucker 650,- DM 
ZU Spectrum 16K & 48K 
Spectrum Erweiterung 16 auf 48K 
MAHR & MÜLLER Computer 
Westring 32, 6086 Riedstadt 5 


VC-20@VC-54@VC-20 @1C-54@VC-20 


Joystick (Baugl. mit Atari) 
Schalter fürl6K Erweit. 
3-fach Moduladapter 

PIO Mother Board 77- DM 
Spiele + Programme ab 3,- DM 
Schnell Save Modul; 27K Erweiterung 
Recorderinterface. Info für 1, DM 
MÜKRA, Rotdornweg 15, 1 Berlin 45 


26,- DM 
13,- DM 
85,- DM 





CBM 64 STEREO-INTERFACE 
Machen Sie aus Ihrem C 64 mehr - 
Schließen Sie in einfach an 
Ihre Stereoanlage an! 

Unser Modul macht's möglich: 

- Baß -, Höhenverstärkung und 
Lautstärke vom Modul aus für 
jeden Kanal einzeln regelbar 
Formschönes Aluminiumgehäuse 
Komplett anschlußfertig 
Einführungspreis DM 148,- 
Modul ohne Regelung DM 58,- 
J& B Günther 
Binterimstr. 41 
4000 Düsseldorf | 
Telefon: 0211 / 34 13.04 


© © RAUM ZUERICH © © 
Suche Günstige Home-Computer 
Ab 18.30 Uhr. 052/31 20 38, Geri Storz 


Defekten ZX 81, Tel: 06121/529123 


ZX Spectrum Software für 
Publikation gesucht. Angebote an: 
MAHR & MÜLLER Computer 
Westring 32, 6086 Riedstadt 5 


Suche Software aller Art 
zu Apple II auf Diskette 
Daniel Buchser, Hauptstraße 
Ch-5737 Menziken 





© SINCLAIR SPECTRUM 48 K © 
Suche gute Programme 
Edwin Stolle, W.-Bauersfeldstraße 51 
7082 Oberkochen 


Suche Frogger oder Phoenix für 
den DRAGON 32, U. Theis, Schützen- 
hüttenweg 36, 6000 Frankfurt/M. 70 


Wir tippen Ihre C-84 und ZX-81 Prg- 
preiswert ein. Info gegen 80 Pfennig 
bei: Chr. Paas; Nordring 54, 4630 Bo. 


TI-09/4A 
Liste jedes (jedes) Basic/Extend. 
Programm für 10,- DM, Volker Weitz, 
4352 Herten 6, Langenbochumerstr.379 
Telefon: 0209/620474 


T1-08/4a: Suche Hardwareangebote 
verkaufe + tausche 100 Programme, 
Laabs, P-Gerhardt-R. 31a, 1 Berlin 20 


Laufend neue BASIC-Kurse. 
Praxisnah direkt am Computer. 
Info: MAHR & MÜLLER Computer 
Westring 32, 6086 Riedstadt 5 


eo u Softwaretausch 
© Tel. 0221/726897 oder Liste 
@ an F. Büscher Schenkendorf- 
o str. 9, 5000 Köln 60 


Auftrag für Gelegenheitsanzeigen in Homecomputer 


Name und Adresse 


An Homecomputer 
Westring 59c 
Postfach 620 
3440 Eschwege 











Unterschrift Ich zahle sofort nach Rechnungserhalt. 


Unter der Rubrik „Kleinanzei- 
gen“ veröffentlichen wir Ge- 
legenheitsanzeigen für Ver- 
kaufsangebote, Kauf- und 
Tauschgesuche, Kontaktauf- 
nahme bzw. Erfahrungsaus- 
tausch usw. 


Ich wünsche folgenden Text zu veröffentlichen: 








Preise für „Kleinanzeigen“: 
Private Gelegenheitsanzeige 
je Druckzeile 5,— DM inkl. 
MwSt. Chiffregebühr je Anzei- 
ge 10,- DM. 


Gewerbliche Gelegenheitsan- 
zeige je Druckzeile 7,—DM inkl. 
MwSt. (dürfen nicht unter Chif- 
fre erscheinen). 


[1 
III | 












































Zutreffendes ankreuzen 
Versch. 
Chiffre 











Hardware 
Hardware 


Tausch 
Kontakte 


suche suche 









































biete an biete an 














EEE EEE EEE EEE E 5 
Wie an anderer Stelle im Heft schon erwähnt 


Wir suchen 2 Programmierer, 
die in unserem Verlag in Eschwege mitarbeiten möchten. 


Sie sollten in der Lage sein, selbstständig Programme für unsere Computer zu entwickeln. 
Hierbei sind Ihrer Kreativität und Fantasie (fast) keine Grenzen gesetzt. 


Eine gute Beherrschung der englischen Sprache wäre, natürlich von Vorteil. 
Als Mitarbeiter wünschen wir uns engagierte junge Leute, 
denen wir einen interessanten Aufgabenbereich bieten können. 
Wenn Sie flexibel sind und meinen, unseren Anforderungen zu entsprechen, 
dann sollten Sie sich mit uns in Verbindung setzen. 


Schicken Sie uns Ihre vollständigen Bewerbungsunterlagen 
oder rufen Sie uns einfach an, wenn Sie näheres erfahren möchten. 


Bel der Wohnungssuche sind wir gerne. behifich. 
Roeske-Verlag 
Westring 59c 
3440 Eschwege 


Tel.: 05651/8558 









m Nachnahme 


ı Bestellschein = wr.sw 





Wir lassen Preise sprechen: 




















Peribox mit 8 Slots ....22222222000. 498,- RB Ich (min) bestelle(n) 
Laufwerk 5,25” intern eingebaut ..... 575,- I I Arte [Bick| Preis 
Controller. Laufwerk ............ 425,— 
Drucker-Interface ............. 398,— 99/4A 
Qualitäts A 4 Matrix-Drucker CP 80 ... 1185,- 
— 























5 MB-Winchester- h _ 

Festspeicherplatte 7900, 

m. UNIX-Betriebssyst. mm u: 
9a,_ l 


Mit diesem Paket wird Ihr TI 99/4A von 
TEXAS INSTRUMENTS zum 16-Bit-Profi 





Ringstr. 70 

mpufer g 

autor ne 
Tel. (0431) 676766 








1} Gesamt-Preis DM 
I 
I 
I 





ringstraße _ 1.1 17-435130 


Software-Service 


Programme auf Diskette und Kassette 


Nicht jeder Leser hat die Zeit und die 
Geduld, alle Programme, die er gerne 
hätte, in sein Gerät einzutasten. 

Wir haben uns deshalb überlegt, daß es 
das einfachste ist, wenn wir die 
Programme, die wir ohnehin auf Dis- 
kette oder Kassette vorliegen haben, 
diesem Leserkreis zum Selbstkosten- 
preis (Kopierzeitaufwand, Datenträ- 
ger, Porto, Verpackung und Mehrwert- 
steuer) anbieten. 

Es genügt jeweils die Angabe eines 
Stichwortes, z.B.: VC-20-Disk Heft 5 
oder Sinclair-Kassette Heft 5. 


Bestellungen Inland: 


Gegen Einsendung eines Schecks oder 
Vorauszahlung aufunser Konto bei der 
Kreissparkasse Eschwege, 
Bankleitzahl 522 500 30 

Kto.-Nr. 45 22 934 

senden wir Ihnen die gewünschten Pro- 
gramme schnellstmöglich zu. 


Bestellungen Ausland: 


Nur Vorauskasse, Schein (Kassette 10,- 
DM, Diskette 20,- DM). Keine Schecks 
oder Überweisungen! 


Lieferung noch nicht erhalten? 


Bei Überweisung aufunser Konto kann 
es bis zu 2 Wochen dauern, bis wir Ihre 
Bestellung in Händen haben. , 

Oft passiert es, daß auf der Überwei- 
sungsdurchschrift weder Name, noch 
Ort, noch Art der Bestellung zu er- 
kennen sind. Schreiben Sie uns! (An- 
rufe kosten viel Geld und bringen, weil 
dann Schriftvergleiche nicht möglich 
sind, kein Ergebnis)! 


Wenn esbei uns besonders hektisch zu- 
geht, dann kann es schon mal pas- 
sieren, daß es mit der Lieferung etwas 
länger dauert. Vergessen Sie bitte nicht: 
Der Kassettenservice ist ein zusätz- 
licher Service von uns, der Ihnen, dem 
Leser, Tipparbeiten ersparen soll (Sie 
kennen den Versuch einer anderen 
Zeitschrift, dieses per Lichtgriffel zu 
ermöglichen). Wir tun unser möglich- 
stes. Aber Pannen sind nie ausge- 
schlossen. 

Bitte haben Sie in solchen Fällen Ver- 
ständnis. 


aus Heft 11/83 


TI 99/4A 
Poker 
Blackjack 


K 8,- 


ZX Spectrum 
Superhirn 
Haushaltsrechnung 


K 8,- 


ZX 81 
3-D Highway-Race 
Chikago 


K 8,- 


Apple II 
Pyramid Builder 
Survival 


Commodore 64 


Laser Force 
Jump Man 
Autorennen 


VC 20 K 8,- 
Programmreservoir 
Demon Attack 


TRS 80 
Schiffe versenken 
Mau Mau 


Herr Ulrich Holle, der übrigens auch das Prögramm Pokerin 
diesem Heft geschrieben hat, schickte uns folgende Verbes- 
serungen und Ergänzungen zum Kniffelspiel: 


Fohlerausbesserung: 
1320 aoto 1340 
1330 T«100 

1340 0osun 560 
1350 DCIA,A)=T 
1360 RETURN 

1370 


Ablinderung, ob Anweisungen oder nicht. 
1461 PRINT "WILLST DO ANWEISUNGEN? (J/M)"::= 

1462 CALL KET(O,KET,STAT) 

1463 17 STAT-O TEN 1462 

1464 IP KET=78 TEEN 1710 ELSE IF KEYe74 THEN 1470 ELSE 1462 


Abänderung für die Eingabe und Ausgabe den Endatanden, 
3921 FOR A=1 TO SPIEL 

3922 INPUT "NAME: ":NANES(A) 

3923 INPUT "ERGEBNIS: ":ERGERNISCA) 

3924 SUME(A)-SNOE(A)+EROERNISCH) 

3925 NEXT A 


fortfahren wie im Listing 


3954 CALL CLEAR 

3955 PRINT TAB(5); "a ENDSTAND mu" 
3956 FOR Ne} TO INT(22/(SPIEL1))-1 
3966 PRINT 

3976 NEXT N 

3986 FOR %=1 TO SPIEL 

3996 FOR HaZ+t TO SPIEL 

4006 IP SOMEELH)LSUMNELZ) THEN 4076 
4016 EasmoR(2) 

4026. SUMELZ)=SWAELH) 

4036 SUMMELH)=E 

HONG WESNANES(Z) 

4056 NAMES(Z)=NAMES(H) 

4066 NANESCH)=EE 

4076 NEXT u 

4086 PRINT TABCSON(1O-Z)41);STRE(7);". "5NANER(Z)HTABC25) ;SUMNELZ) 
4096 FOR Ni TO INM(22/(SPIEL1)-1 
4106 PRINT 

4116 NEXT N 

4126 NEXT Z 

4136 FOR Ne} TO 5000 

ANNE NEXT N 

4156 CALL. CLEAR 

166 END 


Machen Sie Ihren VC-20/64 zum Profisystem! 


z.B. mit Hardware (nur VC-20): 
64 K Ram Modul 
40/80 Zeichenkarte 
Steckplatzerweiterung 
mit 5 Plätzen 
mit 2 Plätzen 58,- 


248,- 
235,- 


158,- 


Das Systemhandbuch zum 
Commodore 64 u. VC-20 74,- 
6502 Assembler-Kurs 38,- 


fordern Sie den ausführlichen 
Katalog gegen 
2,-DM Rückporto 


mit Spitzensoftware: 
Textsysteme von 
Tabellenkalkulation 
Buchhaltung 
Fakturieren 

Spiele und vieles mehr 


28,- bis 565,- 


Forth 1.6 
Exbasic Level II 
Makroassembler 


Peter Hemmer 
Verlag & Versand 


Hardware u. Software 
Mühlweg 54, 6730 Neustadt 19 
Tel. (06321) 3 19 92 





Gridder 
für den VC-20 o. Erweiterung 


Durch Nachfahren der Linien werden 
Rechtecke auf dem Bildschirm aus- 
gefüllt Sehr unterhaltsam, guter 
Sound. 

Joystick- oder Tastenbedienung 


DM 39,50 


SUPER NINE 
für den IK ZX-81 


NEISSE INENEICHWA ENTE 
ner Kassette! Für jeden Geschmack 


das Passende dabei. 
DM 39.50 


TIER] 


für den Commodore 64 
Zeichengenerator zum einfachen Er- 
stellen selbstdefinierter Zeichen. Gute 
Beschreibung und Dokumentation in 
englischer Sprache 

DM 38.-- 


ICH EL 


für den Commodore 64 

Zum Zeichnen und Speichern herrlicher, 
mehrfarbiger Spritegrafiken, die auch in 
eigene Programme eingebaut werden 
können. Bescheibung in engl. Sprache. 


für den Commodore 64 
Superschnelles Arcadegame 


Gridder 
für den Commodore 64 
Beschreibung wie VC-20 Gridder 


Time Warp 
für Atari 400/800 


Superspannendes Adventure (englisch) 
sehr abwechslungsreich, prima Grafik. 
Erhältlich als 16K-Kassette oder Dis- 
Kette, 


Escape from Perilous 

für Atari 400/800 

Englisches Grafik & Textadventure. Wil- 
de Flucht durch ein Labyrinth von Tun- 
nels, um zu überleben. Erhältlich als 
32K-Kassette oder Diskette 


DM 51,-- 


DM 78.- 


KOLTTEIEI 

für Atari 400/800 

Actionspiel, 100%ig Maschinenspra- 
che. Besonders spielstark. Erhältlich 
als 32-Kassette oder Diskette 


DM 78.- 


De Luxe Joystick 
„Quickshot“ 
für VC-20 und Atari 


für schnellere Aktionen 
= 2 Feuerknöpfe zur Auswahl 
- handgerecht geformter Knüppel 
- sehr stabil 
- extra langes Kabel 


Preis pro Stück DM 65,— 








BUNNY; 
Ela, 


SinclairZX Spectrum 


ORION-SOFTWARE Postfach 620 : 3440 Eschwege : Tel.: 05651-8559 


Bitte benutzen Sie Bestellkarte im Innenteil des Heftes! 





The + Computer Games Series The:rCc "Games Series k sames Series The Computer Games Series 


GAMES 


FORYOUR „OR YOUR 











WILL YOU BE THE SUPREME 


WORLD CHAMPION? 





ROMIK SOFTWARE 
INT THE Vic & 


MuLfscono " 


SYNTHESIZER 





ROMIK SOFTWARE ‚ 


MARTIAN RAIDER 


FOR UNEXPANDED VIC 20 


; 






A REAL ACTION SHOT OF THE GAME" 
WILL YOU BE THE 
SUPREME WORLD 

CHAMPION? 


ROMIK SOFTWARE /\ 
resent 


ET 





. 


®, * ® 
+ % 
+ 
. 
“A REAL ACTION SHOT OF THE GAME“ 


WILL YOU BE THE 
SUPREME WORLD 
CHAMPION? 


UELDIETELETT ENT RTH 18 © 





SHARK ATTACK 








* 


Per‘ re 


TARERLACHION SHOT OF THEGARE 


WILL YOU BE THE 


SUPREME WORLD 


CHAMPION? 









ROMIK SOFTWARE & 
Present 


SPACE ATTACK 





WILL YOU BE THE 
SUPREME WORLD 
CHAMPION? 


ROMIK SOFTWARE 2 
mennur 








yoi 
WORLD CHAMPION? 





Adventure-Spiel f. VC-20 WICOSOFT 
(Speichererweiterun: 'g mind. 16K) 
ein Superspiel 


ORION-SOF TWARE * Postfach 620 x 3440 Eschwege | 


